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THE BEST BBC MICRO SOFTWARE 

PRODUCED BY AN INDEPENDENT SOFTWARE HOUSE 

— TOP QUALITY MACHINE-CODE PROGRAMS — 





CENTIPEDE 1 32K) C7 95 Cassette 

Incredible arcade type game featuring 
mushrooms, snails, flies, spiders and 
the centipedes of course. Excellent 
graphics and sound. 6 skill levels, hi- 
score, rankings, bonuses, and increase- 
tng difficulty as the spiders become 
more active and the number of mush- 
rooms increases. 

"Visually this game compares well with 
the arcade version, being colourful 
and clear " 

. , . YOUR COMPUTER 




FROGGER(32K) C7 95 Cassette 

Not just another version of Frogger . . . 
this is the proper high-quality version 
that you've been waiting for. Graphi- 
cally brilliant, with gaping-mouthed 
crocodiles, diving turtles, and frogs 
that flex their legs as they jump along. 
Increasing difficulty, hi-score, respon- 
sive controls, sound effects, flies and 
bonus frogs. 

» NEW RELEASE I 
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ROAD RUNNER {32K) £7 95 Cassette 

The only full feature machine-code 
version of the arcade game available 
for the B.B.C. micro. Features include: 
scrolling screen, radar display, check- 
point flags, fuel gauge, smoke screens, 
6 skill levels, rankings, increasing 
difficulty, and sound effects. 

Suitable for use with keyboard or 
joysticks. 



I NEW RELEASE * 




ALIEN DROPOUT (32K) £7 95Cassette 
Based upon the arcade game of ZYGON, 
but our version improves upon the 
original arcade game itself. You have to 
shoot the aliens out of their "boxes" 
before the "boxes" fill up. Once full, 
the aliens fly down relentlessly, ex- 
ploding as they hit the ground. 
Suitable for use with keyboard or 
joysticks. 

"Do not be fooled by their placid 
appearance - these moths are out to 
get more than the clothes in your 
wardrobe." . . . YOUR COMPUTER 




SPACE FIGHTER (32K) £7.95 Cassette 
Arcade-style game based upon features 



may attempt to ram you. Separate attack 
phases, fuel dumps, repeating laser 
cannon, asteroids, smart bombs, hi- 
score, rankings, 6 skill levels, sound 
effects. 

"A thoroughly enjoyable program, well 

worth the money ..." 

. , . HOME COMPUTING WEEKL Y. 



GALAXIANS |32K) £7.95 Cassette 

Fast action version of the popular arcade 



) swoop I 
vidually or in groups of two or three. 6 
skill levels, high score, rankings, bonus 
laser bases and increasing difficulty. 
Superb sound effects and graphics. 



INVADERS ( 32K| £7.95 Cassette 

Superb version of the old classic arcade 



ing invaaers arop 
your defences, and two types of space- 
ship fly over releasing large bombs that 
penetrate through your defences. In- 
creasing difficulty, high score, superb 
graphics and sound. 



are well-produced, with colourful graphics, responsive controls and the 
h of extra-terrestrials." . . , YOUR COMPUTER 



FRUIT MACHINE (32K) £7.95 Cassette 

Probably the best fruit machine im- 
i on the market. This 
program nas it all . . . HOLD, NUDGE, 
GAMBLE, spinning reels, realistic fruits 
and sound effects, multiple winning 
lines. This is THE fruit machine 
program to buy. 

"The graphics are very good and with a 
little imagination you might be able to 
convince yourself you are in Las Vegas. " 
. . . YOUR COMPUTER 



DEALERS 




DEALERS . . . DEALERS . . DEALERS . . . DEALERS . . . DEALERS . . . 

All our programs are available at all good dealers including :- 

ELTEC COMPUTERS, 217, Manningham Lane, Bradford. MICROSTYLE, 47 Cheap Street, Newbury, Berks. 

BUCON LIMITED, 18 Mansel Street, Swansea. SIR COMPUTERS LTD., 91 Whitechurch Road, Cardiff. 

WEST COAST PERSONAL COMPUTERS, 47 Kyle Street, Ayr. ELECTRONEQUIP, 36-38 West Steet, Fareham, Hants. 

BYTEWARE LIMITED, Unit 25, Handyside Arcade, Newcastle. MICRO MANAGEMENT, 32 Princes Street, Ipswich. 

MICROSTYLE, 29 Belvedere, Lansdown Road, Bath. 3D COMPUTERS, 230 Tolworth Rise South, Tolworth, Surbiton, Surrey. 

4 MORE THAN 30 OTHER DEALERS IN THE U.K. AND OVERSEAS. 

E PAY 25% ROYALTIES FOR HIGH QUALITY PROGRAMS 



SUPERIOR SOFTWARE 

Dept. BMU3 , 

69 Leeds Road, Bramhope, Leeds 

Tel. 0532-842714 



DISC SOFTWARE AVAILABLE NOW 

All our programs are ready for despatch on 5 V discs at 

£11.95 each. 



WE GUARANTEE THAT: 

(DAM our software runs correctly on all current operating 
systems and BASIC ROMs. 

(2) All our software is available before we advertise. 

(3) All our software is despatched within 48 hours by first class post 

(4) In the unlikely event that any of our software fails to load, 
return your cassette or disc to us and we will immediately 
send a replacement. 




Making the 
most of 
your Acorn 

WELCOME to Acorn 
Programs, the magazine 
which aims to help you 
make the most of your machine by 
providing you with a comprehensive 
range of software. In the first issue, 
there are 25 new programs for the 
BBC micro Model B, ranging from 
games and educational quizzes to 
utilities, word processing and per- 
sonal money management. 

Acorn Programs will appear every 
two months and, in future issues, we 
hope to publish programs for the 
Electron as well as for the BBC 
micro. 

We will also keep you abreast of 
the latest in Acorn and software 
developments in our news and re- 
views section. 

If you would like to contribute to 
Acorn Programs, we would be 
pleased to hear from you. Send your 
programs, on disc or cassette, 
together with a brief description 
and, if possible, a printout, to 
Acorn Programs, ECC Publications, 
196-200 Balls Pond Road, London 
Nl 4AQ. We will pay a basic rate of 
£15 per published listing but will 
consider paying more for exception- 
ally good programs. . 

-7U 0^ 



News 

Softscope 

Competition 



BBC MODEL B 

Jungle Maze 
Binary- 
Memory Probe, 
Rlphasort 

Car Depreciation 

Invasion 

Sketcher 

Duel 

Squares 

Colour Logic 




Word Processor 
Prime Numbers 
Chemical Quiz 
Timer 

Alphabet Jumble 
React, 
Tables 

Map Game 
Bar Maze 
Orbits 
Mortgage 
Maths Game 
Book Search 
Bull and Cow 



Page 

5 
7 

15 




8 
10 

11 
12 
13 
16 
18 
19 
20 
22 
23 
25 
26 
28 
30 

31 

32 
35 
36 
37 
40 
43 
44 
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manager John Ross Editorial assistant Colette McDermoit Production assistant Dczi Epaminondou Managing director Terry Cartwright 
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Acorn Programs is published bi-monthly by ECC Publications Ltd. 

The views expressed herein are not necessarily the views of Acorn Computers Limited. 

Telephone, all departments: 01-359 3525. If you would like to contribute to Acorn Programs, please send programs on disc or cassette to Acorn 
Programs, ECC Publications, 196-200 Balls Pond Road, London Nl 4AQ. We pay a basic rate of £15 per published listing. 
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FORGET 

Cassettes 




Full 

Warranty on 
all Disk Drives 



REMEMBER 



Disk Drives 





There's only one IMPORTANT name in 
Specially Designed Computer Supplies 



Vi/jlerv 



TEACS and Cannon Slimline Drives 




Single Drives 




• 40 Track 100K 


£166 


• 40 Track 200K 


£230 


• 40/80 Track Switchable 200K 


£207 


• 40/80 Track Switchable 400K 


£269 


Dual Drives 




• 40 Track 200K 


£365 


• 40/80 Track Switchable 400K 


£425 


• 40/80 Track Switchable 800K 


£550 


ALL PRICES INCLUDE 15% VAT-LEADS & CASE 


Free Disk Formatter & Manual 




Please add £8 for Special Delivery & 




Packing 
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Complete order form and send TOGETHER with 
cheque or postal order made out to 

VIGLEN COMPUTER SUPPLIES 
Unit7TRUMPERS WAY 
HANWELL W7 2QA 

or phone in order with Barclaycard or Access number 

01-843 9903 



ORDER FORM 

Please supply 

Type and make of drive 

Quantity 

I enclose Cheque/PO for 

My Access/Barclaycard No 

Name 

Address 



Educational establishment orders welcomed 



AU3 
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Electron 
aims for 



equality 

RESEARCH by Acorn Com- 
putcrs has confirmed that 
women are falling seriously 
behind in the race to com- 
puter literacy. The BBC mi- 
cro accounts for most of the 
computers used in British 
schools and more than 80 
percent of those ordered un- 
der the Department of Indus- 
try Microcomputers in 
Primary Schools scheme, so 
Acorn interviewed teachers 
and computer education spe- 
cialists for its survey. 

Many expressed concern 
that girls are falling behind 
boys in computer studies and 
that they use computers at 
home far less. As boys forge 
ahead, girls lose confidence, 
which leads to an ever-widen- 
ing gap. 

Acorn joint managing di- 
rector Chris Curry believes 
the consequences are serious, 
because girls will find them- 
selves less able to compete for 
jobs than boys. "Britain is in 
danger of losing half its talent 
if girls do not acquire vital 
computer skills," he says. 

Acorn hopes that the Elec- 
tron will help to remedy the 
problem by making comput- 
ers in the home more readily 
available. The company in- 
tends to develop software 
which will appeal specifically 
to families. "By interesting 
the parents, we hope girls of 
school age will be encouraged 
not to fall behind in com- 
puter studies," Curry says. 




Hermann Hauser (left) and Chris Curry 



Acorn Computers 
sailing ahead 



ACORN COMPUTERS has 
raised £11 million through 
selling its shares on the Un- 
listed Securities Market. 
With a price tag of £132 mil- 
lion, Acorn is now one of the 
biggest companies quoted on 
the USM. 

Started in 1978 by Chris 
Curry, who worked formerly 
with Sir Clive Sinclair in 
Cambridge, and Hermann 
Hauser, Acorn Computers 
has grown from a turnover of 
£31,000 in 1979 to £8.63 mil- 
lion last year. The 1983 fig- 
ure is expected to be in the 



region of £40 million. New 
sales offices in the U.S. and 
West Germany herald plans 
for Acorn expansion over- 
seas. In the U.K. the com- 
pany is investing in a new 
research and development 
building in Cambridge. 

The company controls 80 
percent of the British educa- 
tion market with the BBC 
micro and, in addition to its 
new Electron aimed at the 
home computer market, it 
plans to release a business 
version of the BBC micro 
next year. 



Software shuttle 

MICRODEAL, which spe- Air Traffic Controller. Great 
cialises in programs for the things are expected of Shut- 
Dragon 32, is moving into tie, which has already been a 
BBC Model B software with big success for the Dragon 
two new titles, Shuttle and computer. 



Twelve packages from 
Acornsoft, the Acorn soft- 
ware publishing subsidiary, 
accompanied the launch of 
the Electron. The programs 
include six games — chess, 
draughts and Reversi, as well 
as arcade games — two pro- 
gramming languages, an edu- 
cational deduction and logic 
game, and a personal money 
management program. The 
programs will also run on the 
BBC micro. 

Acorn is already experienc- 
ing a big boost in sales of the 
Electron, with 160,000 al- 
ready ordered. Acornsoft be- 
gan to distribute software 
recently through ASK, which 
specialises in primary edu- 
cational packages. Similar 
deals with other software 
houses are planned. 



BBC programs on the air 



THE BBC is proving that it 
stands at the forefront of 
communications technology. 
Its Telesoftware Service, 
launched in September, is be- 
ing billed proudly as the 
world's first regular broad- 
cast service of computer pro- 
grams. 

Telesoftware uses the 
pages of the BBC Ceefax ser- 



vice to transmit programs di- 
rectly into computer memory 
— all you need is a BBC 
micro and an adaptor which, 
like the micro, is made by 
Acorn Computers. 

Selling at £225 including 
VAT, the adaptor gives ac- 
cess to free programs and also 
to the news, finance, sports 
and other pages provided free 



by Ceefax. The programs are 
downloaded straight into the 
computer, where they can be 
stored, run, or copied on to 
disc or cassette. 

Batches of six to eight pro- 
grams will replace each other 
every other week. "At 
present, the bias is edu- 
cational," says Telesoftware 
organiser Lawson Brown, 



"but utilities, program build- 
ing-blocks and the occasional 
game will all have their 
place." The BBC will also be 
commissioning software to 
accompany its schools series. 
With a backlog of more 
than 3,500 orders for adapt- 
ors, the BBC is pleased with 
the response to its latest 
brainchild. 
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SOFTWARE 

ul. * Arcade Games * Adventures * 
a * Educational * Utilities * ROMS * 
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* Languages 



and more 

*BHMB Mos ! T V 

wi ^i <^4 — f per f or t n ight 

« WITH OPTION TO 

*mww SXLt 

* Membershp£10 

* For catalogue and membership form send name * 

* and address to -^ 
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EXAMPLE PRICES: 

EPSON RX80 

EPSON RX80 FRICTION/TRACTOR 

EPSON FX80 

EPSON MX 100 

EPSON FX100 



£248 + VAT 
£268 + VAT 
£358+ VAT 
£398 + VAT 
£458 + VAT 



THESE PRINTERS ARE AS GOOD AS 
THE EPSONS: 



SHINWA CP80 
STAR 510 
STAR 515 



£228 + VAT 
£238 + VAT 
£268 + VAT 



Datatech Limited, 
8 Bellingham Close, 
Bury, BL8 2TU, 
Lanes. 

Telephone: 061-764 5579 



bili/Erlind 



SILVERLIND LTD. 156 Newton Road, Burton-on-Trent, Staffs. DE15 0TR. Tel Burton (0283) 63987 
STRATEGY GAMES EDUCATIONAL PROGRAMS 



PENTILES BBC/B £6.95 

An original and addictive game for all ages from 8 to 80 
requiring skill, memory, logic - and luck! 

OTHELLO (Reversi) BBC/B £6.95 

Play the computer in this fast BASIC/machine code 
version of the popular board game. 5 skill levels, auto- 
play, etc. 

ADVENTURE GAMES 

HAUNTED HOUSE BBC/B £6.00 

An excellent introduction to adventure games. Can you 
survive the perils of the castle and the graveyard, to 
collect the 6 treasures AND rescue the princess? 

JOURNEY TO THE STARS BBC/B £6.50 

You have been sent on a dangerous mission to find 10 
treasures - but how are you going to get back? Beware of 
the Antiflavian MegaTiger and venomous lizard woman! 

PASSPORT TO DEATH BBC/B £6.50 

From the planet Zandra, you have been sent to Earth, a 
strange place with stranger inhabitants! Finding treasures 
is not enough - without extra fuel, your starship will not 
get you home. 



ENJOY MATHS 48K Spectrum £8.00 

A suite of 4 highly motivating programs for the 8 - 14 
age range: tables, simple equations, polygons and areas. 
The programs combine explanation with tests and make 
good use of colour and sound. 

TOWNTEST BBC/B £6.50 

Identify the major towns and cities of England, Scotland 
and Wales, displayed on a high-resolution map. Suitable 
for all age groups and for school or home use (try it as 
a quiz for all the family!) 

BIOLOGY BBC/B £12.50 

A major collection of programs, written by a GCE exam- 
iner, designed to aid the understanding of Biology to 
CSE, 'O' and 'A' Level standards. These programs - com- 
prising text, animated diagrams and questions - are 
available in one package and are suitable for individual 
study at school or in the home. Teachers will also find 
material suitable for class demonstration. 



ALL PRICES INCLUDE POST & PACKING & VAT 



We require good programs to increase our catalogue and pay high royalty rates for published material. 
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Close encounters of 
the arcade kind 



ROCKET RAID and Super 
Invaders show ihat Acornsoft 
is as adept at arcade games as 
at adventures. Super Invad- 
ers is, as you will have 
guessed, another version of 
that old friend Space Invad- 
ers. The graphics are of high 
quality and the action is as 
exciting as you want it to be. 
You can choose between a 
mild encounter, an uncom- 
fortable situation, and no less 
than a terrifying experience — 
on that level, the bombs have 
a homing capability. 

Rocket Raid will remind 
you of that old favourite, 
Scramble. You are at the 
helm of a rocket, firing at 
enemy vessels and dropping 
bombs on their servicing 
units. Life becomes more and 
more complicated as five 



Rocket Raid 

for the BBC Microcomputer Model B 



83(10 1 



landscapes present their own 
hazards. After flying over the 
depot, there is a cavern to 
pass through, a horde of me- 
teorites to dodge, skyscrapers 
point their missiles at you, 
and finally you have to nego- 
tiate a maze. 

You have three ships in- 



itially but if you reach 15,000 
points you will have another 
one. Excellent graphics and 
increasingly lively action — 
watch for the whizzers on 
level 2 — should please the 
most jaded of arcade game 
players. Super Invaders and 
Rocket Raid cost £9.95 each. 



Playing darts the 
armchair way 



RELEASES from A & F Soft- 
ware include One Hundred 
and Eighty, an armchair 
version of darts. The graph- 
ics are excellent, with the 
darts board looking very real- 
istic from the front and also 
in profile. You can choose 
between the various scoring 
methods known to real-life 
darts players and steering the 
darts towards the proper 
places requires a fair degree 
of dexterity and practice. 
Another A & F offering is 



Horror Castle. You may 
find that much of the horror 
is from not being able to get 
into the castle. It is a simple 
adventure, without graphics, 
and with the occasional spell- 
ing mistake, but it offers 
plenty of obscurity to exer- 
cise the most experienced 
mind games players. 

Horror Castle and One 
Hundred and Eighty from A 
& F Software, 830 Hyde 
Road, Manchester M18 7JD 
£.8 and £6.90 respectively. 





Philosophic 
adventure 

ADVENTURE game addicts 
should find the Acornsoft 
Philosopher's Quest right 
up their street — or forest, or 
dark passageway, if you pre- 
fer. The situation at the start 
is that you are in a small shop 
from which you can take a 
choice of objects on your mis- 
sion, which is to find various 
treasures and bring them 
back to where you began. 
Outside the shop it is dark 
and a giant spider lurks, wait- 
ing to pounce — the rest is up 
to the player to discover. 

There is nothing startling- 
ly original about the game 
but it is a well-produced and 
gripping variation on a fam- 
iliar theme. The computer re- 
sponses are convincingly 
human — it says "eh?" in- 
stead of "I don't understand" 
— it is occasionally witty, and 
it possesses a wide vocabu- 
lary. Discovering what re- 
sponses are required has the 
proper degree of difficulty so 
that even beginners are not 
discouraged from pursuing 
the quest. 

Philosopher's Quest from 
Acornsoft, 4a Market Hill, 
Cambridge, costs £9.95. 



Painting by cursors 

IF YOU FEEL that paint pre-defined shapes, a circle sorbing pastime but you will 




and canvas hold no further 
mysteries, you could try 
Quicksilva Beeb-Art for the 
BBC model B. You can use 
either a joystick or the cursor 
keys to draw lines of any 
colour on any background 
you choose. 

There is also an impressive 
array of additional facilities- 



routine, a choice between 
filled-in and outlined shapes, 
a screen wraparound, and 
others. You can store your 
latest masterpiece, or erase it 
if you are not satisfied with 
your work. All the possibili- 
ties are set out very clearly in 
the accompanying booklet. 
Beeb-Art provides an ab- 



need plenty of practice before 
you achieve results as striking 
as the three pictures included 
as examples on the cassette. 

Beeb-Art is from Quick- 
silva, Palmerston Park 
House, 13 Palmerston Road, 
Southampton SOI ILL. It 
costs £14.95. 
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30HS-0 ' ST=Q ' K9=G 

40U5S*6 * vss-xa 

50W^«U?S*2+2 
6025i-»VM*2+2 
70K5i-OJ^+l >*<V*+1 >-2 
80DIM Tfc<J&jZfc)*M%<lftjVfe> 

90VDU23,224,255,129, 161,181,129,173,129.235 
100VDU23, 225, 0,255, 137, 175, 169,175, 137,25b 
110VDU23,226, 126,66, 102,90,90, 102,90, 126 
120VDU23, 227, 255, 0, 199, 60, 129, 52, 129, 255 
130VDU23,22S,255, 189, 165, 173, 165,255, 171,255 
140VDU23, 229, 24, 36, 126,255,189,189,165,36 
150VDU23,249,24,24,60,90,24,60,36,102 
160VDU23, 250, 56, 124,56,214,254,214, 16,16 
170VDU23,251,24,60, 126, 126, 36,24,24,24 
180VDU23,252, 16,56,56, 124, 124,56, 16, 16 
190VDU23,253,0,0,56, 124, 124,56, 16, 16 
200VDU23,254,84, 170,84, 170,84, 16, 16, 16 
210VDU23,255,0,5, 162,68,40, 16, 16, 16 
220MODE 7 

230PRINT'"" Us# the cursor k»ws to move the n&r\" " " 



II , , M 



tround the m*z» and collect ** mam 
monkey 1 " ' TflB< 13 V'catchea vou. " 

240PRINT'"TRB<9y*PRESS KEY TO CONTINUE") 

250fl»-GET» 

260S-0-LL-0 

270REPERT 

280MODE 2 

290VDU23,1,0j0j0;0j 

300COLOUR 132 'COLOUR 2 
310CLS 

320PR I NTTRB< 2 > " * MONKEY 

330PRINTTRB<1,3>"SCQRE 



itema «a wou cj.fi before the 



MR2E *'* 

HI-SCORE" 



340FOR Ifc-OTOU^'FOR Jfc-0TOV% 

350M*< 1%, J'O-210 

360NEXT i NEXT 

370Q*-0 

380I*-RND(UX+1 )-l 

390J*-RND<V*+1 )-l 

400IF M*<I*,J!O-210 FIND QfcM 

410IF Gtt>KK THEN GOTO620 

420HV.-0^G5i-RND<4) 

430HS*-H5<+1 

440IF Hk>4 THEN COTO380 

450Lfc-Ifc 

469Nfc-Jfc 

470 IF CX>4 

480IF 

490 IF 

500 IF 

510IF 

520 IF 



THEN PROCC 



Gfc-1 
GX-2 
G$S-3 
GH-4 



THEN G*-l 

RND lk<UH THEN F*-2 'L^-I^+l 

RND JX>0 THEN F*-3<N*-J'^-1 

AND I*>0 THEN Ffc-5 ; L*-I*-l 

AND J'/.<V'/. THEN F5S-7 'NSfi-JfcM 
M5fi< L% , N5< ><>2 1 OR (Nfc-Jfc RND LX-Ifc> THEN G»G'-:+l -GOTO430 
530M^< Vs., JJO-M%< t%*JH>/F% 
540 IF F*-2 THEN F*-5 • GOTO5S0 
550 IF F5i-3 THEN F*-7 - G0T0380 
560 IF F'/i-5 THEN F%-2 ■ GOTO5Q0 
570IF F*-7 THEN F*-3 
5S01ft*L%<J»«NK 
590M5j< I5i, JJO-Mfc< I!g,JK)/F% 
600Q^-Q^+1 
610GOTO420 
620I*-RNO<U*-1 >-l 
630M5CC IJi,0>-M!« I*,0 V3 
640FOR I*-0TQU*'FOR J*-0TO2* 

690T%Ik,J5O»32 

668NEXT - NEXT 

670FOR J^«0TOV* ■ FOR I5s-0TOUV. 

680D?i-M^( Ifc,JSO 

690T*< I ^*2 , J**2 >-RND< 6 >+249 

700IF D*/*3«D*DIV3 THEN T'4< 1**2+1 , J5i*2 >-RND< 6 >+249 

710IF D*/5-D*DTV5 THEN T%< 1**2, J5j*2+1 >RNtX 6 )+249 

720IF D*/7-D*DIV7 RND Jfc-Vfc THEN Tfc< 1**2, J**2+2 > 
-RND< 6 >+249 ' TX< 1**2+1 , J**2+2 )- RNDC 6 ^+249 

730IF D*/2-D*DIV2 RND I*-U* THEN T*< 1**2+2, J**2> 
=RND< 6 )+249 • T*< 1**2+2, JX*2+1 )- RND< 6 >+249 

740NEXT i NEXT 

750T*< W*, Z* >«RND< 6 >+249 

760FQR I-0TQUVFOR J-QT02* 



USE YOUR cursor keys to find 
your way round a Jungle Maze, 
with gorillas in hoi pursuit. You 
can eat the bananas but you cannot get 
through the trees. An excellent, fast- 
moving maze game, with fine graphics 
and plenty of action. 




H 
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770PR I NTTAB< I +2 , J+6 >CHR*T*< I , J > 
780NEXT i NEXT 
790FOR Z-1TO30 
800K-RND< 5 >+223 
810I-RND<W%-1> 
820J-RND<2*-1> 
830COLOUR 3 

840IF T«I,J>"32 THEN TCIjJIHO 
PRINTTAB< 1+2, J+6 >CHRfK - ELSE GOTO800 
830NEXT 
960COLOUR 
870XG-RND<U*-1> 
880YG-RND<Z!<-1> 
090B-T«<XG,YG> 
900X1-XG-Y1-YG 
9 1 0GC-B ' T*< XG , YG >-229 
920PR I NTTflBC XG+2 , YG+6 >CHR«229 
930COLOUR 7 
940FOR I-0TOU5* 

930IF T5<CI,0>-32 THEN T^< 1 , >-249 ' 
L- 1 • N-0 • PR I NTTAB< 1+2,6 >CHR«249 
960NEXT 
970XX-1 
980REPEAT 

990 IF S>HS THEN HS-S 
1000PRINTTRB<3,4)jS 
1010PRINTTAB<13,4>>HS 

1020 IF S/50-S DIV 30 AND SO0 AND K9<>1 THEN FOR 
-0 TO 5 'FOR J-5TO3STEP-1'SOUND2,-13,J*10,1'NEXT'NEXT<K9-1 
10301-L'J-N 
1 040FORW-0TO 1 00 « NEXT 

1050IF INKEY<-122> THEN I-I+l 'SOUND! ,-12, 10, 1 'GOTO1090 
INKEYC-58) THEN J-J-l 'SOUND1 ,-12, 10, 1 'GOTO1090 
INKEYC-26) THEN I-I-l > SOUND 1 ,-12, 10, 1 
INKEY<-42> THEN J-J+l ■ SOUND1 , -12, 10, 1 
J<0 OR J>Z5> THEN J-N 
I<0 OR I>Ufc THEN I-L 
TX(I,J>>223 AND T*<I,JX229 THEN 
32 ' S-S+ 1 ' ST-ST+ 1 - K9-0 



I 



1060IF 
1070IF 
1080IF 
1090IF 
1100IF 
1110IF 
T5i< I , J >« 



GOTO 1090 



11 20 IF T*<I,JX229 THEN T*<L,N>-32 COLOUR 
7'PRINTTAB<L+2,N+6>CHR«32TAB< 1+2, J+6 "> CHR»249'L-I ! N-J 

11 30 IF RNDOXM THEN GOTO 1030 

1140R-RNDC2) 

1 1302-0 'XO-XG'YO-YG 

11 60 IF R-l THEN GOTO 1230 

1170IF N>YG THEN Z-l 

1180IF N<YG THEN Z— 1 

1190IF RND<3)-1 THEN Z— Z-IF Z-0 THEN Z-RNDC 3 >-2 

1200YC-YG+Z 

1210IF YG<0 THEN YG-0 

1220 IF YG>2* THEN YG-Z* 

1230 IF L>XG THEN Z-l 

1240IF L<XG THEN Z— 1 

1230IF RND<3>-1 THEN Z— Z'lF 2-0 THEN Z-RNDC 3 >-2 

1260XG-XG+Z 

1270 IF XG<8 THEN XG-9 

1290 IF XOWfc THEN XG-W* 

1290 IF GC<250 THEN COLOUR 3 ELSE COLOUR 2 

1300 IF XGOXO OR YGOYO THEN PR I NTTflBC XO+2, 
YO+6 )CHR*< GC > • T'/X XO , YO >-GC • GOTS« XG , YG > ' T'/X XG , YG > 

1310COLOUR 

1320PRINTTAB< XG+2, YG+6 >CHR»229 

1330UNTIL ST-30 AND N-0 OR <XG-I AND YG-J) 

1340IF XG-I AND YG-J THEN LL-LL+1 ELSE S-S+20 

1350FOR I-9T02-F0R J-3TO10 

1360SOUND1,-15, J*20, 1 

1370NEXTNEXT 

1380ST-0 

1 390FORU-0TO5909 - NEXT 

1400UNTIL LL-3 

1410CLS=*FX15,G 

1420PRINTTflB<2,12>"flrioth»r Qam« Y/N" < AS-GET* 

1430IFA»-"Y" OR A*-"y" THEN GOTO 260 

1449END 



'229 



1430DEFPROCC 
146015^-1^+1 
1470 IF ISSMJ5S 
1480IF M'4< IX, SO 
1490ENDPROC 



THEN I*-0'JV.-J%+1'1F JSOV9S 

210 THEN GOTO 1460 



THEN JV.-0 
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CAN YOU convert decimal num- 
bers into binary and vice versa? 
Binary will tesl your ability. It 
will tell you whether you are correct or 
not but will not give you the correct 
answer, which you will have to find 
yourself. A useful program for anyone 
learning about computers. 



30MODE7 
35DIM B< 10 > 
40P**"01" 
50PRINT' 

gQPPTM-STkiNCSC 20 , P* j 

70PRINT 

e0PRj:NTTRI2< 1.5>;CHR*< 134>;CHR*< 140 

90PR I NTTAB< 1 5 :■ ; <_ HR*< J 33 > .; C HR*< 1 4 1 > 
100PRINT 

1 1 0PR I NTSTR I NG*< 20 , P* ' 
12SPRINT 

130PRINT"BINARY TO DECIMAL * 1" 
140PRrNT"t>ECIMAL TO BINARY - ?" 
i50VMJ2B,O £4 39.15 
lS0T0=-20 

x70INPUT"E u Tf=R YOUR CHOICE PLEA5E";C^ 
180 IF C5i>2 OP C'i<! THEN CL5'GOTOl70 
105 IF Ck - 2 THEN 340 
190F0R 1^1 TO ie 

200PROCDIGIT 

210PRINT"BINARY' "j 

220FOR J»l TO "5 

230PP I HTM I D*< P* , B< J >+l / i >; 

240NEXT J 

245PRINT"<HEH *i~0< "3 "j 

250PR INT "DECIMAL :"; 

260INPUTR 

279 IF A^C> THEN PROCPIGHT COTO300 

280 PROCWRONG 

290T0-T0-1 

300PRINT 

310NEXT I 

320 GOTO 550 

330PRINT 

340FOR 1^1 TO 10 

350PROCDIGIT 

360PR INT "DECIMAL* ">0) n <HEX - ";~D;">"; 



"BINARY" 
"BINARY" 



INKT0^2+,3>j 



M *s II 



370PRINT"BINARY: "; 

'J8OI»="0GOOG M 

390INPUTI* 

400IF LEN<I*» 10 THEN 470 

410I*~"00000"+I* 



420 I*«RIGHT*CI*j9> 
430F0R J»l TO 5 

440 IF MIMKP*,B<J>+l,lX>MID«<I*,Xi>THEN 478 

445PR0CRIGHT 

45G NEXT I 

460 GOTO560 

470 PRINT" "j 

475 2*~"" 

430 FOR R - 1 TO 5 

490 z*-2*+mto*< PS.FKPHl.. 1 > 

500NEXTR 

505PRINT2* 

506PR0CWRONG 

510PRINT 

520T0-T0-1 

330PRINT 

540NEXT T . 

550PPINT 

560CLS 

570PR I NT" YOUR SCORE 

580GOTO160 

590PR I NT 

600ENO 

605DEFPROCDICrT 
€100 -ffl 

<?20FOR J«a Tub 

■530BCJ>-TNT<RND< i H.S) 

640D*D*2+B< J ) 

650NEXT J 

660ENOPR00 

700 DEFPROCRIGHT 

710 PR I NT "CORRECT - 

720 PROCWAIT 

740 ENDPROC 
750DEFPR0CWAIT 

760 FOR P' 1 TO 0000 ■ NEXT R 

770CLS 

7S0ENDPROC 

790DF rr 'ROCWKONC 3 

800F^INT"WR0WG - YEPCCHH" 

9t0PROCWAIT 

020ENDPROC 



VERY GOOD" 



10 
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10 REM MEMORY EXAM INFO 

13 CLS 

20 POT NT "MEMORY EXAMINER" 

39 PRINT' "<*P>-SteP to next location" 

40 PRINT" - -Step back to Previous location" 
50 PRINT" M -ChJLTtfW content* of location" 

60 PRINT 

70INPUT"Start location- "A»<L-EVAL< A«> 

08 PRINT~L,-*?l_j n "- 

90 IF TM5W OR ?L>126 PRINT". "jELSE PRINT CHR«<J?L>;" "; 

100 K-GET 

110 IF K-&20 THEN L-L+l <PRINT'GUTO80 

120 TF K-8.2D THEN L-L-l -PRINT i GOTO80 

130 IF K-8.4D THEN PR I NT "New bvt»'"i'GOTO 140 

135 GOTO 108 

140 INPUT B» 

150 ?L-EVAL<B«> 

168 IF ?L«">FUA! t. A* > THEN PRINT"Location failed to Program" 'GOTO 170 

ELSE L-L+l 'GOTO 00 

170 END 



/MEMORY 
PROBL 



A SIMPLE utility program, Mem- 
ory Probe, allows you to exam- 
ine a specified area of computer 
memory. Entering the start address and 
end address is all that is required to 
define the area. 




ENTER UP to 15 words and 
Alpha Sort will put them into 
alphabetical order. 
You can arrange for it to handle a 
longer list by altering the variable con- 



tained in line 80. Just the thing for 
school registers, indexing, memberships 
lists, or finally getting some order into 
that jumble of computer programs. 



sort "EX 



100 



10 REM ALPHA SORT (BASIC) 

40MODE7 

30CLEAR 

60p»rNT' M *rr alpha - sort 

70 INPUT'" Enter number of word* for 
90 IF EX<2 OR EXM5 THEN 40 
90 DIM B*<EX> 

PRINTTAB<4,5)j"YouH liftt" 
FOR BX-1 TO EX 
120 PRINTTAB<1,BX*6>) ■ INPUT "Enter worH "' * 
130 IF LEN<C«>MO t MFH DR!NTTAB< 12,BX+6);STR1NG«<LEN<C»>, " 

GOTO 120 
140 B«<BX>-C« 
150 NEXT 

160 FOR JXM TO EX 
FOR Kfc-1 TO EX 
IF B«<JXXB«<KX> THEN C»-B«< JX > ' B«< JX )-BX KX > • D*< KX >-C« 
NEXT, 
280 PRINTTRB<26,5)j"SorteH lis*" 
210 FOR e"i-l T F"* 
o ? r ppjHTTAB<29,e'<+€>i B»<BX> 
230 NEXT 

240 PRINTTflB< 9, BX+9); "Another sort 
258 IF C*-"Y H OR C«»"YES" OR C«-"« 
266 END 



170 
180 
190 





<Y'N> "j - INPUT" "C» 
OR C«-"*«S" THEN 10 
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CAR 



r 



DO YOU want to know how much 
your car will be worth this time 
next year? Or in February, 1985? 
Enter the price at which you bought it 
and Car Depreciation will set out 
clearly, month by month, the depreci- 
ation for the next four years. It uses a 
write-down value of 25 percent per 
annum and should be of interest as 
much to personal car owners as to heads 
of small businesses with several cars to 
run. 



10MODE7 

20VDU23;8202j0;0;0 

50PRINT' 

60PRINT TAB< 10>;CHR*< 141 >;CHR«< 132>j "CAR DEPRECIATION" 
70PRINT TflB< 10>;CHR*< 141 >/CHR*< 132).' "CAP DEPRECIATTON" 
00PRINT TAB*11>'" *********#######" . 

30PRINT' i "AS MOST SELF EMPLOYED PEOPLE KNOW," 
100PRINT"R DEPRECIATION VALUE OF 23* PEP ANNUM " 
119PRINT"WRITE DOWN VALUE IS GIVEN FOR VEHICLE'S" 
120PRINT"THE FOLLOWING PROGRAM .DOES WOT rot/cr" 
130PRINT"IN T O ACCOUNT TME MAXIMUM ALLOWANCE OF" 
149PRINT"i2000. " 
150PRINT' ' ' ' 

160 INPUT "PRESS RETURN to CONTINUE"© 
170MODE4 
1B0PEPEAT 
190CLS 

200PROCBOX 

£10dft-e,20209 

220PPINT TMK9/2>J H THEN PRESS < RETURN V 

230 INPUT TAB<1.0>"ENTFR PURCHASE PRICE HF CAP ■ fc"C 

2<*e*F0R v -0 to 3 

25AF0R X«l TO 12 

260PRINT TAB< < Y*9 >+4, < X*2 >+4 >} C 

270C»C*0. 9741961 

280NEXT X 

290NEXT V 

300PRINT TflB<0, 30 >; "PRESS 'H' FOR HELP, ANY KEY TO CONTINUE" 

310A*-GET» 

320 IF A*-"H" THEN RUN 

330UNTIL FALSE 

340DEF PROCBOX 

350G Y- 1 G 

9MWVE 9 j 00 'DRAW 0,916 

370FORX-96 TO 1279 STEP 289 

399M0VE X, 80 'DRAW X,916 

390NEXT 

4Q0MOVE 0,80^ DRAW 1247, 80 

410MOVE 0,848 'DRAW 1247, 848 

420MOVE 0,916'DRAW1247,916 

430FOR X-0 TO 3 

440PRINT TAB<0,4>;"M+-W" 

458F0P Y*J TO 12 

46QRRINT TAB'' 1 , < Y*2 >+4 >; Y 
470NEXT 

480FOR X=-0 TO 3 

490PRINT TAB<<X*9>+4,4>;"YEAR ";X+1 

500NEXT 

•510ENDPROC 

520PR I NT "ALLOWED <£800O>. " 

539PRINT" 

540 INPUT "PRESS RETURN TO CONTINUED 

550GOTO190 
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IWUASIOW 



DO NOT be surprised if there is 
something vaguely familiar 
about Invasion. It is yet another 
version of space invaders and a reason- 
ably exciting one. The screen will fill 
with more and more of those menacing 
aliens and you will need quick reflexes 
to sort them out. Use the N and M keys 
to move left and right and the space bar 
to fire. 



ii 



S0PRINTTAB< 13>CHR»< 141 )CHR*< 133 >" INVADERS" 

39$F%1 ! jfi 

60 PRINT-PRINTCHR«< 134>" The idea of the 9j.me i* to ahoot as 

70PRINTCHR«< 134>"mAn« INVADERS as Possible. If enough " 
80PRINTCHRi< 134)'" are destroyed they will retr-eat. " 
90PRINT'PRINTCHR«136V'BUT THEY'LL BE BACK!" 
100PRINT'PRINTCHR*<131>"TO MOVE LEFT PRESS 'N'" 
110PRINT<PRINTCHR*K131 >"T0 MOVE RIGHT PRESS 'M'" 
U SPRINT «PRINTCHRi< 131) "TO FIRE PRESS 'SPACE BAR'" 
116PRINT'VDU134j 157; 136; 133; 'PRINT" PRESS ANY KEY TO CONTINUE" 

1202*»GET«'MODE5 

140COLOUR4 

1S0N«"1 " B"0 ' J»0 ' G«0 ' V*1000 

170VDU23, 230, 36, 153, 66, 0, 219, 24, 90, 153 

1B0VDU23,224,60,24, 126,90,255,102,255, 129 

1 90VDU23 , 225 , 24 , 60 , 1 26 , 255 , 255 , 255 , 255 , 255 

200VDU23, 226, 15, 31 , 63, 127, 255, 255, 255, 255 

2 1 0VDU23 , 227 , 255 , 255 , 235 , 255 , 255 , 255 , 255 , 255 

220VDU23 , 228 , 240 , 248 , 252 , 254 , 255 , 253 , 255 , 255 

230A«-CHR*< 226 HCHR»< 227 HCHR*< 228 )+" 

240B«-CHR«< 227 HCHRSK 227 HCHRUK 227 >+ " 

250COLOUR1 

260VDU23 J 8202 ; ; ; ; 

270VDU31,0,24 

280FORR»1TO4-PRINTA*j 'NEXT 

290FORR-1TO4'PRINTB»; -NEXT 



II 

11 
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300FORR«1TO4.PRINTB»J 'NEXT 

3 1 0FORO 1 T024STEPQ . 05 

320COLOUR2 

330PRINTTAB<<RND<18>-1>,Oj" " i OflNK 224 > ; " " 

340SOUND0 ,-12,-4,.! 

350COLOIJR3 

360PRINTTAB<0,30>" 

370PR I NTTAB< N , 29 > t " ") CHR*< 225 >s" " 

360VDU30 « PRINTTABC 4 >" SCORE-" ; J 

390N«-INKEY«<15> 

400IFN««"M"ANDN< 17THENN-N+1 

4101 FN»- " N " ANDN >0THENN-N- 1 

420IFNt-" "THENGOSUB450 

430NEXTC 

440GOTO60O 

450VDU23, 229, 24, 0,24, 0,24, 0,24,0 

460F*-CHR*< 229 > 

470T»28'U«175 

480REPEAT 

490PR I NTT AB< N+l , T > ; F* 

500PRINTTAB<N+1,T>" " 

510T-T-1 'U-U+1<SOUND1,-10,IJ,1 

520Y-< < N+l )*64 H32 

530ZK ABS< < T-l >-31 >*32 HI 6 

540G-POINT<Y,Z> 

550 I FG-2THEN J- J+ 1 

560 1 FG >0THENB- 1 ' PROCEX< N , T > 

570UNTILT-0ORB-1 

590B-0 

590RETURN 

€00IFPJi<J THENAR- J 

610IFV<J THENGOTO820 

620MODE7 

630 PR I NTT AB< 10,4 >CHR»< 1 4 1 >CHR«K 133)" GRME OVER " 

640 PR I NTTRB< 1 >CHR»< 1 4 1 )CHR*< 1 33 > " GAME OVER " 

650PR I NTTAB< 6,10 >CHR«< 1 32 > " I N V ADERS HAVE LANDED " 

668 PRINTTAB<7, 15)CHR«<141 >CHR«< 131 >" HIGHEST SCORE-" jA^ 

670 PR I NTTAB< 7 >CHR«< 1 4 1 )CHR»< 1 3 1 V H I GHEST SCORE- " J AX 

680PRINTTAB< 1 1 , 20 >CHR*< 131 V'YOIJR SCORE-" i J 

690FORN-1TO1000 

700SOUND3 ,-12, RHD< 1 49 >+75 , . 1 
710NEXTN 

720 PRINTTAB<2,24>"D0 YOU WANT ANOTHER GAME ; Y' OR 'N'" 

730 I FGET«- " Y " THENGOTO20 

740IFGET«-"N"THENCLS - END 

760DEFPROCEX<N,T> 

770PR I NTTABC H+ 1 , T- 1 > i CHR*< 230 > 

780SOIJND0,-12,30,5 

790FORG-1TO100 ' NEXTG 

800PR I NTTAB< N+ 1 , T- 1 ) " " 

8 1 8ENDPR0C 

820 V«._hJ-0 

830 M0DE7'PRINTTAB< 1 ,5 >CHR*< 130 >"You have forced the iwidtr* to " 

840PRINTTAB<1,6)CHR«< 130) "re treat with a our expert ahootinQ. " 

850PRINTTAB-r.l,8)CHR«a31 >"But this tint* uou h*V# to beat «ou.r" 

860PR I NTTAB< 1 , 9 >CHR«< 1 3 1 > " I afit " CHR«< 1 33 ) " SCORE OF " j V 

970FOR I - 1 TO50800 < NEXT I 

880PRINTTAB<6,15>CHR»C141 >CHR*< 134>CHR»< 136 V HERE THAY COME AGAIN" 
890PRINTTAB<6,16>CHR*< 141 >CHR«< 134)CHR*< 136 >" HERE THAY COME AGAIN" 
900 FOR I«l TO 10000 'NEXT I 
910 MODES ' GOTO250 



14 
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Write a Game and 
Win an Electron 

There is a wonderful prize to be won in our competition to 
welcome you to Acorn Programs. An Electron computer, 
worth £199, will go to the best games program sent to us. 
Games can run on either the BBC Micro or the Electron 
and will be judged for originality, excitement, presentation, 
playability and entertainment value. 

Fill in the entry form below and send a cassette, 
accompanied by a listing and a brief description. Your 
entry must reach us no later than January 2, 1984. We 
reserve the right to publish any entries. 

The usual rules about the editor's decision being final 
and employees of ECC Publications being ineligible apply. 




Name 

Adress 

Send your entries, marked Electron Competition, to 
Acorn Programs, 196-200 Balls Pond Road, London Nl 
4QA to arrive no later than January 2, 1984. 
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THE PROGRAM for anyone who 
is tired of doodling with ordinary 
pen and paper. Use the cursor 
keys to draw slowly-revolving straight 
lines. 



30MODE7 ■ VDU23 i 1 1 , j ; ; Q 

40C2»3 

90Q- 1 3 1 ' 2- 1 34 « Y«-CHR*< 1 36 >+CHR*< 1 34 > 

S0#TV 255 

70scale«5 

80ON ERROR GGTOIGIQ 

90IFR*«1 THEN 190 
100PROCTITLE 
110PROCCL 

120PRINT"CHR»(Z>j" Use the cursor kevs 
130PRINTTAB<0,6>jY«j"F"jCHR«<137:>j"Liill 
and move" 'PRINTCH R*<Z)j" the origin to 



to move 
fix the 
the new 



the line" 
current line 
end," 



the current line but 



140PRINT' j Y*i »L" J CHR»( 137 >; "wi U fix 
keeP"'PRINTCHR«<2>j" the old origin." 

150PRINT' jYtj"M"jCHR*<137>;"uill move the orlflin without 
drawing " I <PRINTCHR»( 2 >j " in the current line." 
160PRINT"CHR»<Z)j" You maw use the number kews to 
eha*««"-PRINTCHR«KZ>j" the sPeed at which the line moves. 

170PRINTTAB< 8, 22 >CHR«<Q>> "Press SPACE to start" 

180REPEAT UNTIL GET*-" " 

1 90C«- " Ur i t i n« " > PROCUH I CHCOLOURC C« ) 

200CU-A 

2 1 0Ct- " Back ground " - PROCWH I CHCOLOURC C* > 

220CB-A 

230MODE4 ■ VDU23; 1 1 , 0; j 0; 

240VDU19, 1,CU, 0,0,0 

250VDU19,0,CB, 0,0,0 

26BCLS'PRINTTAB<2a>"S K E 



T C H E R 



If 



270PROCSETIJP 

280F-0 

290MOVEX,Y 

300PLOT69,X,Y-REM PLOT THE START POINT 

310PROCGETKEY 

320IFF-1THEN XBAR - X'YBAR - Y ' XLAST-X ■ YLAST-Y - F-0 i GOTO30Q 

330 1 FXP- 1 THENX-XLAST - Y- YL AST - XP-0 = F- 1 ■ G0T0320 

340PROCUNPLOT<X,Y>'REMPLOT OLD POSITION IN BACKGOUND COLOUR 

350PROCNEUMY< A« ) 

360MOVEXBAR,YBRR 

370PROCPLOT<X,Y>>REM IN FOREGROUND COLOUR 

380GOTO310 

390END 

400DEFPROCGETKEY 

410*FX 4 1 

420A«-GET« 

438IFA«-CHR«< l3S>THENft*«"L"'GOTO630 

440IFA««CHR«< 139>THENfl«-"U" « GOTO630 

450IFfl«-CHR*< 137>THENA»-"R" < G0TG630 

460IFA«-CHR«< 138>THENA«-"D" • GOTG630 

470IFA«-"L"THENXP-1 

480IFA«-"F"THENF«1 

499 I FA*- "M" THENCZ-7'PR0CUHPL0TCX,Y>'C2-5-F-l 

500IFA«-CHR*<8,09> THEN Rfc-l'RUN 



510IFA*»"0"THENscale< 

520 IFA«« " 1 " THENsca I t< 

530IFA» 

540 I FA* 

530 I FA*- 1 

360 IF At-' 

570IFA*- 



"2"THENscali 
"3"THENscal. 



-1 
■3 
6 
■9 



'4"THENscale-l2 
■S"THENscale«15 
"6"THEN*cale-l8 



* \ 



'" * * 



». * >" 



* 






t - 



.. . ■■■ "■ •■'. 



'■ * 



• . ■■ . 

' ■ - '-£■:.■ 

*t* .- '■••■; V ■ - ■• • '--.. : - 

: " V \ V . .;• :,•■-. 

'.;' ■■ ':-.<■■,'■ 0;.*£ : 

■ "\ . \ -• ■'■•.-"■ •-..: ,:;->:; Vi-- 

■ ■ ■:• . ;• ■:•.■•-■:■.•-,- »&*fc£ 
■ ■ -. - . ■■ -.- .:•■■■- ^:^>r::'- 



. .-'--'-,; 



M? 









f»-.>* 



(II 



- .* 



v; ■:■-.- 



s 



72 



ur-, 



;•- 



M 



* 1 



*.A 



I' 



v 



i<i 



r/'* 



,:-:o.» 



^ 



<% 



"^ 



% 



r fT 



£-1 



A 



STA 



1/1*- 



Tfif> ■ S 



1 »0 



fe^ 






rf** 



E-". * 






^.-*.: 



OK 



*-y 



«?« 



4 

r, ^ 



Gf^ 



«SS3!S^ f >, 



&S&^ 



;#^ 



«3^ 



Sr ; 



*#.:*' 



i0 



>< J 



f 






B#«t 



v» 



if> 



** v-# 



Ik^> 






,iJvivi..V 



tft 



\ 






x\V^ 



**-. :v 



B 



-r> 



««w 



y. 



■;* .• 



j* 



.**: 



(L"i*» 






16 



ACORN PROGRAMS December 1983/January 1984 







The L key will fix the line in place, 
the F key will fix it and move the origin 
to the other end, and M will simply 
move the origin without drawing a line. 
Have fun. 



-.-.• ■■-■■ 







588 1 Ffl«- " 7 " THENsc * 1 e-2 1 






590IFR»-"0"THEN*cale«»24 






600 1 FR*- " 9 " THEHac J. 1 e-27 






610IFR«»CHR*< 127>THEN CLS - PRINTTRB< 2, 1 > 






"S K E T C H E R" -PR0C8ETUP 






620GOTO420 






630ENDPROC 






640DEFPROCNEUXYC fl« > 






630 1 FR«- "' D " THENV-V-fiCJ. 1 * ■ GGTG720 






660 I FRt- " L " THENX-X-*ca I e - GOTO720 






670IFR«»"R"THENX-X+»ca1*^GOTO720 






690IFfl«-"U l, THENY-Y+*c*le-GOTO720 






690 1 FX > 1 279THENX- 1 279 






700IFX<0THENX-0 






7 1 1 FY > 1 023THENY- 1 023 






720ENDPROC 






730DEFPROCUNPLOT< X , Y > 






740MOVEXBRR,YBRR 






730PLOTC2,X,Y 






760ENDPROC 






770DEFPROCPLOTC X. Y ) 






700GCOL4.1 






790PLOT5.X.Y 






800ENDPROC 






8 1 0DEFPROCUH I CHCOLOURC C* > 






820PROCCL 






830PRINT'CHRiIKG)jC«j" Colour " 






840PRINT";CWR*<2)j" 1 Red" 






030PRINT' jCHR«Z>j" 2 Green" 






860PRINT' jCHR«CZ)j" 3 Yellow" 






Q70PRINT' jCHR«Z)j" 4 Blue" 






880PRINT' jCHRt<Z>j" 5 MaO«Jf»t* M 






890PRINT' jCHR«KZ>j" 6 Cyan" 






9O0PRINT' jCHR»<2>;" 7 White" 






910PRINT' jCWR«<Z>j " 8 BUek" 






920PRINT"jCHR«<Q)j "Enter vour choice " 






930fl«-GET« 






940R-VRU R« > 






930IF fl <1 OR fl>8 THEN 930 






960 IF fl-8 THEN fl-0 






970ENDPROC 






980DEFPROCCL 






990CLS'PRINTTRB<10,l)iCHR«(Q)j"S K E T C H E R" 






1000ENDPROC 






1010*FX 4 






1 020MODE7 






1030PRINT' ' ' ' 'CHRtCZ); "Goodbve" «VDU7« VDU23; 11 j255j0j0j0 


iR*-0 




1040END 






1050DEFPROCTITLE 






1060TlTLE»-"3k etcher" 






1070CLS 






1080PRINTTRBC 12, 10 >>CHR*134; CHRS141 ;TITLE* 






1090PRINTTRBC12/11 >jCHR»134jCHR*141 jTITLE* 






1100fl*»INKEY*< 1000) 






1110ENDPROC 






1 120DEFPROCSETIJP 






1 1 30XBRR-640 ' YBRR-5 1 2 < XLRST«XBRR • YLRST-YBRR ■ XP-0 • X-XBRR 


i Y-YBRR 




1148ENDPR0C 
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1 

2 

10 

20 

40 

be 

*n 
90 

100 
110 
1 15 
120 



REM t TO SPEED THE GAME UP 

REM t CHANGE "&' AT LINE TEN 

MODE 7 PP IWT ■ 0-0 • T-9 • tl»0 ' 5-40G ■ P"0 

PRINTTAB< ll >;CHR*>41 ;' HPSlJl i "*** DUEL ***" 

PRINTTftBt 11 >;» HP«14l :CHR*]i'l ; "tff DUEL ***" 

PRINT IF P=l THEN 140 

PRINT'THIS GAME HILL TEST YOUR REFLEXES WHEN " 

PR I NT" YOU DUEL WITH ONE OP THE MOST FAMOUS " 

PPINT"DUEL1STS IN THE WORLD. VO' "P iVimpiitcp ii" 

PRINT 



pptHT-i/cRj voiip FTNCFP ON THE < 'F* ? KEY WHEN " 

PR INT "YOU APE READY TO FIRE. JUST PRESS IT. " 

PRINT PPINT"['ON'T FIPE BEFORE THE COUNT OF TEN AND" 

PPINT"YOU SEE A STAR < * > ON THE VIDEO - THAT" 

PPINT"WUULD BE CHFATTH'; " 

PP'HT'PRINT"fl TOTAI fiF TEN POUNDS WILL BE PUN. THE" 

1?5PPINT"THE ONE COMING UP WITH THE MOST HITS" 

130 PRINT"WILL BE THE WINNER." 

135 PRINT PR I NT "(NOTE- AS THE POUNDS BECOME GREATER THE 
COMPUTER Will FTRF FASTER >." 

140 PRINT PRINT" PPE9S RETURN TO BEGIN". 

145 INPU T X 

«*>A CIS* PRINT 

160 PPINT"STAPT YOUR PACES " 

170 REM COUNT PACES 

190 FOR M-l TO 10 

199 PPINTTABf 19>;M 

200 FOP N-l TO 590 'NEXT N 
210 ZI-IWEWa^ 

220 IF 2»-"F" THEN PROCCHEAT -GOTO 4"* 

230 NEXT M 

240 PFM SET STAR 

290 H-!NT'PMr-O0>+l > 

?60 FOP J-l TO 590 NEXT J 

270 PPINT PRINT PRINT PRINT 

275 Z*-INKEY«<0V IF Z*-"F" THEN PROCCHEAT GOTO 416 

28© PRINTTA8(X>j"*" 

299 REM SET UP SPEED FOR COMPUTER SHOT 

300 FOR 1-1 TO S NEXT I 
310 Y«-INKEV*<0> 

33* IF Y*<> W F" THFN 340 

-»'>« GOTO 300 

340 CLS' PRINT 

350 PPINTTAB'S-S^CHRtMliCHRHigi '"TOO SLOW SUCKEP ! 



SCRATCH ONE INTEGRATED CIRCUIT 



IF W>4 THEN PPINTTPB< 10>"I'M GETTING WEAKER '" 
PRINT ' T-T+l ' IF T-IO THEN 4*0 
PRINTTAe'8.!9V'THAT'S pf,IJND NUMBER ";T 



<8-4>iCHR»141iCHR*131; "TOO SLOW SUCKEP ! ! " 
360 PRINTTflB< 18. 11 >"I JUST SHOT YA M" 
365 Q-O+l 
370 G0T0410 
390 CLS'PPTNT 

3«n PR!NTTfi8<2.3>'CHP*I41.CHP»134;"0 U C H ! ! " -PRINTTA8< 2. 4 >> CHR 
•141.CHR«I34;"0 U C H II" 
400 PRINTTflBfO-liVCGT Mf r. 

W-W+l 
405 
410 
4?0 

430 IF T<10 PRINT PPIHTTABC 10 >"0NLY "iIO-Tj" MORE TO GO." 
S-S-10'GOTO 140 

440 PRINTTAB^v'THRT'S "*Ti* ROUNDS M" 
IF 0>W THEN 490 
IF W>0 THEN 520 
IF 0-W THEN 550 
REM FINAL MESSAGES 

PRINT -PRINT" | OOKS LIKE I WON THE BETTER OF "iT 
PRINT" ROUNDS. WITH A TOTAL OF - j 
GOTO 640 

PRINT-PRINT" WELL YOU'RE FASTFP THAN YOUR COMPUTER." 
PR I NT" YOU WON THE "iT." ROUNDS. WITH A TOToi ftp •• i U 
GOTO 640 

PRINT PRINT" SO WF'RF ABOUT FVFN WITH THE REFLEXES." 
PRINT" YOU HAD ".Mi" AND I HAD "iOt" NOT BAD 1! ** 
COTO 640 
DEFPPOCCHERT 
FOR 1-1 TO 3©0NEX T I'CLS PRINT PRINT 



PPINTTAB 



460 

470 

4A0 

485 
4 OCT 

500 

51© 

520 

530 

540 

550 

560 

570 

575 

530 

590 
■ / 9.4> 

9129- 

fiie 

620 
6^0 
640 

660 
670 
680 

69e 

700 



r i •• 
'NEITHER ONE OF US GOT 
YOU LOSE A ROUND-FOP 
IN THE BACK. DID YOU 



THIS POUND." 
SHOOT TNG MF" 
SEE ft STAR ?" 



PPINTTRBr9.3^:CHP*141 . f HP»1.-^; "OKAV RCSTI ESS ' ' " PPrNTTAH 
<CHR«141 iCHR 
"OKOV RESTLESS 

PPINTTPB/3.9V 

PPINTPPINT" 

PRINT PRINT" 

W«W- 1 ENDPROC 

PRINTPPTNTPRrNT" WOULD VQU I IKE 

PRINT" AC A IN. BY GOING "iTi" MOPF 

INPUT A* 

IF A»»"Y" THEN p-I GOTO 10 

PPINT 

PPINT" GETTING TrpEO OF SHOOTING AT A STAR.. 
FND 



TO 



ROUNDS 



TRY YOUR PEFLFXFS" 
<Y'NV' : 



TEST YOUR REFLEXES in a 
shoot-out with your computer. 
The aim in Duel is to fire the 
instant you see a star appear on the 
screen, but it is as well to know that in 
this game the computer is a crack shot 
and you are likely to be killed every 
time. A very simple game without 
graphics — it is just between you and 
that star. 
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FIND THE SQUARE of any num- 
ber you like. In Squares it is for 
you to specify in the program how 
high you would like the table to go. 
Press shift to keep the column moving. 
A simple concept which provides an 
interesting exercise in programming for 
beginners. 



10MODE7 

50PRINT' 

60VDU129J 141 ) 'PR INT j ■ PRINTTflB< 12 > i " SQUARES " 

70 VDU 1 29 > 1 4 1 ; < PR I NT ) T AB< 1 2 > J " SQUARES " 

80PRINT'" SHIFT - CONTINUE CALCULATIONS." 

90VDU28,0,23,39,8 

100PRINT' 

110VDU14 

120 INPUT "INPUT I nWFST VALUE 'M 

130PRINT 

140 INPUT "INPUT HIGHEST VALUE ",H 

150PRINT 

160 FOR I- L TO H 

170 PRINT Ij "SQUARED ■ ";I*I 

180NEXT I 

190GOTO120 
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9 
10ON ERROR GOTO 220 

29DIM CPECA5VDIM PLRYERSGO*< b > *DIM PCHOICE< 
PCH01CE2<&>'DIM CPEG2<5) 
30PIM S*<?>'DIM CPEG*<?^ 
4QY-4 
50T1-TIME 
fiflPROCeol&et 
7SMQDE2-VDU 23 ;3202j 0;O>0 

89PR0CsetuP 

90COPRECT - 
100GRME-0 
UOGOES - 
120REPERT 



b> 



DIM 



1 30COES 



Goe 



i 



PR0Culn9sm* 
GOTO 40 



MOVE******** 



i»THFN PRINTTRB< 11,0>"GK-DO 
, 1 V'RQW ONCE "'PR TNT 



PROCcl*ar_ro',j 



140PROCP Uv*rifnove 

1 50PROCch#ck OAitttt 

168PR0C*t*feua 

170Y-Y+2 

1S0UNTIL GOES «14 OR komf -i 

190PRnr>»wi»#i 

?00 TF GBME-1 THEN 

210 IF R*-"Y" THEN 

220 MODE 7 

225 END 

227 

230REM ********COL SET******** 

240DEF PROCcols«t 

250REM SET COMPUTERS 

260FOR I - TO 4 

270CL-RNIV 7 > 

2«flrpFr,< i >-CL 

?90NEXT I 

300ENDPROC 

310REM ********PLfiYERS 

320DEF PROCPU^ersmove 

330P.NSU*-"!" 

340REPERT 

3'50PRINTTflB< 1I,0>" 

3€©PRINTTflB<il,l V 

370PRINTTRB<11,2>" 

360 IF ANSUrtO 

" -PRINTTRB<li 

TRB< 11,2 V RGRIN 

390X-1 

400FOR I - TO 4 

410REPEAT 

420PLflYERSCO«K I >-GET« 

430PCHOICE<I>-0 

449IF PLRYERSG0t< I > 

450IF PLRYERSG0*O *» 

460IF PLRYERSG0«O> 

470 IF PLRYERSGO*< I > 

480 IF PLRYERSGO*< I > 

490 IF PLRYERSCO«< I > 

500 IF PLRYERSGO«< I) 

510UNTH P<^HOTCE< I >< >0 

5?0COLOUR PCHOICE<I> 

530PR I NTTRB< X , Y >PLfiYERSGQ»< 

540X-X+2 

3?0NEXT I 

560REPERT 

570PRINTTRB< I 1 , 0VTO RL.TEP 

"ROU-PRESS" ' PPINTTRB< 1 1 , 2 >" 
RNSld«-GET* 

398UNTIL RNSW* ~ CHP»13 

590UNTH ow=;U»-"N" 

6A0ENDPROC 

610REM **********PEVEflL 

620DEF PROCr«v»*l 

630X- 1 

640FOR I - TO 4 

6501F CPEG< I > -1 THEN COLOUR 1 

660 IF CPEG<I> -2 THEN COLOUR 2 

670 IF CPEGO) -3 THEN cm niiR 3 

6AWTF CPEG< I > -4 THEN COLOUR 4 

699 IF CPEG< I > -5 THEN COLOUR 5 

700IF CPEG<I> -6 THEN COLOUR 6 

710IF CPEG<I> -7 THEN COLOUR 7 

720PR I NT TAB' X , 2 )CPEG*< I > 

730X-X+2 

740NEXT I 

750ENDPRor 

7*flRFM ********STRTUS#******* 
770DEF PROCsfcatus 
790PRINTTRB< 14,Y>; 
790 IF CORRECT <>0 THEN -COLOUR t 
FOR I - I TO CORRECT • PRINT"*" j < 



ELSE PROCendSame 



SECRET COLOUR SEQUENCE 



THE 



-"G" 

-"B" 
«"M" 
-"C" 



THEN 

THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



I) 



PCHOICE< 

PCHOICE< 
PCHOICE< 
PCHOICE< 
PCHOICE* 
PCHOICE< 



I)-1 
I)-2 

I>-3 

I>-4 
I)-5 
I)-6 



PTMnTCE< I >-7 



<PRINTTRB< 11, 1> 

RETURN" 



OP RWSUI* - "N" 



RNSWER*********** 



CPEG« I 

CPEG*< I 
CPEG«< I 
CPEG»< I 

CPEG«< I 
CPEG*< I 



)-"R" 
>-"G" 

)-"Y" 
)«"B" 
>«"M" 
>-"C" 



CPEG«< I >-"W" 



NEXT I 



<>0 THEN 'COLOUR 7- 
PRINT"*" J • NFVT T 

810FNDPROC 

920REM **********END 

930DEF PROCe-ndflame 

833F0R 1-1 TO 2 

033SOUND 1,-13/ 10.5 

936F0R 11-0 TO 1O90 

937NEXT I 

940PRINTTRBai,0>" OH 

930PRINTTRB<T 11, 1 >" NO 

960PRINTTRB<11,2^ 

B7nFfiR DELRY-0 TO 12000 'NEXT 

890PRINTTRB<11,0)" LIKE 

890PRINTTR9< 11,1V' ANOTHER " 



FOR I - 1 TO RIGHT-CORRECT 



GRME************** 



NEXT II 

DERR " 
MORE " 



r,\ iFSSFS 





IF YOU have ever played Master- 
mind, you will be familiar with the 
object of Colour Logic. The com- 
puter has in mind a sequence of five 
colours and you must try to guess what 
they are, in the correct order. Key-in a 
sequence of your own — Y for yellow, R 
for red, G for green, M for magenta, C 
for cyan, B for blue, W for white — and 
the computer will give you a white star 
for any colour which is correct but not 
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in the proper place, and a green star for 
the proper colour in the correct place. 
You have 14 rows to determine the 
answer by a process of elimination. 

Press return to change a row you 
have just entered, and N to go on to the 
next row. 

Attractive, clear graphics add to the 
appeal of this absorbing, if scarcely 
original, game. 



•"7 9 *? 7 V* 



STEP 2 

x x x y.">" 



900PRINT TRB<11,2>" GRME ?" 

910R»-" !" 

920REPERT 

930R»-GET« 

940UNTIL R»-"Y" OR R**"N" 

950ENDPROC 

960REM ********CHECK GfiMP********** 

970DFF PROCrheckSjm* 

980POR 1-0 TO 4 

990CPEG2< I >=»CPEG< I > ■ PCH0ICE2< T >-PCHOICE< I > 
100ONEXT r 

101QCORRECT-0-RICHT-0 
1020FOP L*9 T04 

1039IF PCHOICE<L>-CPEG<L> THEN CORRECT-CORRECT* 1 
1040NEXT L 

1050IF CORRECTS THEN GAME -1 Fl SF GRMF -O 
1060FOR I - O TO 4 
1070FOR M- TO 4 

1O90IF PCH0ICE2<M>-CPEG2<L) THEN PIGHT-«RIGHT * 
l'PCHOICE2<M>«0'CPEG2<L>0 ELSE 
NEXT M 
1090NEXT L 
1100ENDPROC 

1110REM ********SETUP******** 
1120DEF PROC*etu.f> 
1130RO-1 
1149COL0UR 12 

llSGPRINTTflKi, 

1160r:ni miP 3 

1170FOR I M TO 39 

1180PRINTTAB<1,IV'X X X X X";" " ; RO 

1190RO-RG+1 

1200NEXT I 

1210PRINTTfl6'T2-0>) 

1220FOR I- 1 TO 7 

1230RERD S»' COLOUR I -PRINTS*; 

1240NEXT I 

1250DATR R,G,Y,B,M,C,U 

1260RESTGRE 

i270PROCfc*ble-Ouf l i «• 

1 280ENOPROC 

1290REM*******TRBLE OUTLINE******** 

1300DEF PROCtabl •..outline 

1310GCOL 0,2 

1329M0VE 30,18 

1330HORIZ - 3Q 

1340DRAW 30, 980 -DRAW €90, 990' DRAW 

690, 18- DRAW 30, 18 

1350MOVE 860, 18 'DRAW 960, 915 'DRAW 

1250,915'DRAW 1250. 18 'DRAW 860.18 

1360FOP 7- TO 3 

1370HORI2 - H0RI2 + 130 

1380MOVE H0RIZ,18DRAW Hf'RT?.980 

1390NEXT 2 

14O0MOVE 30, 82 -DRAW 680,82 

1410H « 64-H1 - H 

1420FOR 2« TO 12 

1430MOVE 30,82+Hl -DRAW 680.82+H1 

1440H1 - HI + H 

1450NEXT 2 

1460GCOL0.7MGVE 30 , 990 - r*>AI,J £80,980 

DRAW 680,915'ORAW 30.915'DRAU 30,980 

1470ENDPROC 

1480ENDPROC 

1 490REM**********W I N GAME************ 

1500DEF PROCw i Ti9 in-? 

1502 FOR 1-0 TO 1G ( 



1,-15,200,1 

-0 TO 100 'NEXT 



II 



3>"C0NGPATULATI0NS! " 



";GOES;" 
COLOUR 



> 



GOES IT TOOK" 

12 -PRINT T; -COLOUR 



1504 SOUND 

1505 FOR II 

1506 NEXT I 
1510T2 - TIME 
1520T-INKCT2-T1 1^100 *. 

I5^0rm our 130 

1549C0L0UR 4 

1550FOR I»0 TO 5000 -NEXT I 

1560CL3 

1570PRINTTAB<2 

1580PRINT 

1590PRINT 

1600PRINT"UITH 

1620PRINT"YOU 

1630PRINT 

1635PR I NT "SECONDS TO RFAT THE" 

1fi"S0rOLOUR 4 

1 660PR I NT " COMPUTER ' S COLOUR " 

1667PRINT"C0DE ! " 

1670PRINT'COLOUR 1 

1690PRINT"LIKE ANOTHER GO T" 

1 690REPEAT 

1700R«-GET* 

1710UNTIL R»~"Y" OR P*-"N" 

1720ENDPROC 

1 730REM***********RE DO************ 
J745DEF PROCcle-sr -nr.. 

1747X-t 

I7^P*F0P 1*0 TO 4 

1 760PP I NTTRB< X , Y > " _ " 

1770X-X+2 

1790NEXT I 

1790ENDPROC 
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than"jDfc 

than" j D* 






THE COMPUTER generates a 
number between 1 and 100 and 
you have six attempts to try to 
pinpoint it. After each try, the com- 
puter will tell you if the number is 
lower or higher than the one you just 
entered. A very simple game, designed 
to detect the gambler in you. 



40 MODE 7 

50 PRGChead 

60 PRQCinit 

65PRINT'"PRESS A KEY WHEN READY" 

70 fl»-GET« 

75 CLS 

80 PROChead 

90 Cfc-RND<-TIME> 
100 C5i-RND< 100) 

110 PRINT' SPC3" O.K. I Have ThouQht of a number" 
120 GO-0 
130 PRINT 
140 REPEAT 

150 PRINTSPC9"Enter your Que**" ) • 1NPUT""D* 
160 IF D«<0 OR Dfc>100 THEN 150 
170 IF Dfc-Cfc THEN CO-10 

1S0 IF Dk<CK THEN PRINTSPC6"M* number i* mon 
190 IF DJOC* THEN PRINTSPC6"Mv number 1* le*: 
200 GO-GG+1 
210 UNTIL G0>6 

220 IF GQ-11 THEN PRINTSPC12"UELL DONE I!" ELSE PRINTSPC10 
"BAD LUCK TRY AGAIN" PRINTSPC12"MY NUMBER WAS"jCk 
230 PRINT8PC10"Another 9o < Y/N>" j 'A«-GET«[ 
240 IF A«-"Y" OR At-"*" THEN 75 
250 END 

260 DEFPROCinit 
270 PRINT 

260 PRINTSPC7"I will Que** * number" 
290 PR INTSPC7" between land 100* 11" 
300 PRINTSPC7"*ou have to do i* *et" 
310 PRINT3PC7"the correct number In" 
320 PRINTSPC7"le»* thanSIXtr*'*. " 
330 PRINT'SPC7"I will Qlve you clue*" 
340 PRINTSPC7"on how far uron© wou, " 
350 PRINTSPC7"«ou are 9ue**in-aO. K. " 
360 ENDPROC 
370 DEFPROChead 
380 FOR BJ*-1 TO 2 

390 PRINTTflB< 6, Bfc>jCHR«141 ;'«*** NUMBER GUESS ***" 
400 NEXT 
410 ENDPROC 
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ERE is the software you need to write, edit and print your letters, or any other body of text, on a BBC model B. 
The same program can be used on a model A to write and save text. 



149 MODE? 

160 CLEAR-DTM TtK64>'S<?) 

170PRINTCHR»< 130)) "WHAT IS THE START INC PAGE NO" l< INPUT, CH 

180 PRN-1 •S<6)-CH 

190PRINTCHR*< 131 >j "MAX60, HOU MANY LINES PER PAGE" > ■ INPUT, A 370PRINT Ffi 

200IFA>£0THEN190 

210S< 1 )-fl 

220IFA'2< > INK A/2 1THENR-A+ 1 

230PRINT 

240PRINTCHR«C 132 ) J "MAX 74, 

HOW MANY CHARACTERS PER LINE" >■ INPUT, S< 2 > 

250IFS<2>>74THEN240 

2fi0INPUT"WHAT IS YOUR PRINTER BAUD RATE? 

(DEFAULT PARALLEL V,S< 3 > 

270CLfi'PRINT 

300PRINT 

310 PRINT"F0-"j -PRINT" PRINTER " I 

320PR1NT"F1-"j -PRINT" TAPE "> 



330PRINT"F2-"; 'PRINT" LAST LINE" 
340PRINT"F3-"j -PRINT" READ 
330PRINT"F4-"j -PRINT" ALTER "j 
360PRINT"F3-"j -PRINT" CENTRE" 

PRINT" NFW PAGE 



I"; 



390PRINT"F7-"i -PRINT" INSTRUCT " ) 

400PRINT 

405PRINT 

410FOR HH-l TO 20 - PRINTCHR* 133 >j CHR«< 255 ). -NEXT 

420PRINTTABC 3- 22 >i "0" j 

430D-S<2)- IFD<35THEN E-1-GOTO460 

440D-35-E-SC2VIF E>D THEN E-E-D - GOTO460 

43BE-1 

460G-10'PRINTCHR«< 131 >i -FORR-0TOD ■ PRINT"-" j - NEXTR 

470PRINTTAB<0,2^>JCHR•<l^l>)"-■ , ) -FORR-0TOE -PRINT"-" > -NEXT 

480PR I NTTABf 3 , 22 > > CHR«< 1 29 ) i " 1 " ) 

490F-12 

■500FORR- 1 TO I NT< D/ 1 > ' PR I NTTRBC F , 22 > » 

CHR«<129>jGj 'G-C+10'F-F+ie-NEXT 
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510VDU10,13 


1 330 1 FQU >9THENZY-0U-9 








320 IF E-1THEN548 


1360FOR R-ZY TO QU 








330F-2>FORR-0TOrNT<E'10>'PRINTTAB<rF,23>j 


1570PROCNO 








CHR«<129>)Gj G-G+10'F-F+18'NEXT 


1390PROCLINE 








540VDU29,0,21,39,9 


1390NEXTR 








530REM DEFINE KEYS 


i«aai -nu 








560*KEY 0" PR INTER IM" 


1610X2-1 'GOTO750 








370*KEY 1"TAPE JM" 


1620GOTO670 








TI»e*KCY 2"LAST IM" 


1630REM CENTRE 








398*KEY 3"LO0K IM" 


1640INPUT"WHICH LINE",QU 








600*KEY 4"RLTER IM" 


1650RA-LEN<T»<QU>> 








618*KEY 5"CFNTRE IM" 


1660AR-INT<AR/'2> 








6?8*KEY 6"FRESH IM" 


1679VA-INT< < Sf 2 V? >-Afl > 








630*KEY 7"TELL IM" 


1680U«-T*<QU) 








640X2-0 


1698F0R R-l TO VA 








630L-L+1 


1700U*-" "+U« 








660S< 3 >-L 


1710NEXTR 








670FOP R-iT013"PRINT""'NEXT 


1720T*(QU)-U» 








680VDU15 


1 739GOTO670 








690PRINT 


1740REM NEW 








700PRINT"PAGE "jCHj" LINE ">L-" 


1730FOR R-l T0S<5) 








<PAGE-"jS< 1 >;" X "jS<2>j" LINE9-'CHflR. >" 


1760T»<R>-"" 








710PRINT 


1770NEXTR-YX-1 








720D-L-9' IFL^ATHEN D-0 


1 780L-0 








730 FOR R-D TO L-l 


1 790PAN- 1 • CH-S< 6 >+ 1 








740PROCNO ' PROCL I NE • NEHTR 


1900CLS'GOTO529 








750REM RLTER ENTRY 


1919REM INSTRUCT 








760 IF CH-PflN THEN 790 


1929PRINT PRINT 








770PRINTTAB<7)»"** NEW PAGE NO"iCHj" 


1839PPINT"THIS PROGRMME WILL ALLOW YOU TO" 








STARTING **"-PAN-CH >SC6>-CH 


1940PRINT"WRITE AND FILE. PAGES OF TEXT" 








780PRINT 


1950PRINT"EDITING CAN BE PERFORMED AS" 








798R-L'VDU13i 


1960PRINT"IN THE USER GUIDE FOR THE BBC COMPUTER." 








908PROCNO'U»-"" 


1870PRINT"'NEW' CLEARS ALL EXISTING TEXT" 








005 PRINTCHR1K 130>i 


1990PRINT"READY FOP A NEW PAGE." 








9I0I-INKFY^0)> IFI-34THEN910 


1990PRTNT"THE 'PAPER' IS AS WIDE AS THE GRID 0ELOW" 








920IFI — ITHEN910 


1900PRINT"AND IS ENDLESS." 








930IFI-13THEN990 


1919PRINT"PRESS KEY TO CONTINUE" 








940 IF 1-127 THEN PROCLESS • G0T0970 


1920G0»-GET* 








850IF LEN<U*>*S<2>-4 THEN VDU7 


1930YX-0 








960U*-U*+CHR»< I > 


1940IFSC5X2THENPAN-1 'YX-1 








870PRINTCHR*< I >; 'GOTO910 


1938GOTO670 








990IFIJ»-"PRINTER "THEN1020 


1968DEFPR0CFETCH 








990 I FU*« " TAPE " THEN ! 340 


1979PRINT" INSERT DATA TAPE, PRESS PLAY" 








9O0IFU*-"! AST "THENI390 


1980PRINT'INPUT"DO YOU WANT A SPECIAL FILE".DU» 








9101 FU«- " LOOK " THEN 1410 


1 990 I F DU«- " YES " ORDU»- " Y" THENPROCCHANGE i G0T02020 








920 I FU«' " ALTER " THEN 1 529 


2900 INPUT "WHICH PAGE NUMBER DO WE WANT",QU 








930 I FU«- " CENTRE " THEN 1 630 


20 1 0A»- " PAGE" +STR«< QU > 








940 I FU«-" FPESH " TMFW 1 740 


28280NERRORG0T02 1 30 








959 1 FIJ»- " TELL " THEN 1910 


2030B-OPENIN<A«> 








960T»( L >-U« 


2040FOR Y-l TO 7 








970 1 FXZ- 1 THENX2-0 ■ L -S< 5 >+ 1 • GOTO670 


2030INPUT£B,9<V> 








980IF L-A THEN PROC'FUl 1 


2068NEXTY 








990IFL >S< 1 >ORL-S< 5 >THENS< 5 >-L ' L-L+ 1 


2070FOR Y"l TO S<3> 








1008PPINT 


2O80INPUT€B,T«<Y) 








1010GOTO79O 


2990NEXTY 








1020PEMPR INTER 


2108L-9<5X-1 








1030PR-9 


2110CLOSE€B 








1 940 1 FS< 3 X 1 9209THEHPR-7 


2129ENDPR0C 








1 959 1 FS< 3 X 9600THENPP-6 


2130REPORT 








1 060 1 FS< 3 X 4880THENPR-5 


2149PRINT"S0RRY ABOUT THAT TRY AGAIN?" 








107OIFSOX2400THENPR-4 


2 130 IF ERR-17THENEND 








1 090 IFS< 3 X 1 200THENPR-3 


2160COTO1970 








1 099 1 FSC 3 X 300THENPP-2 


2170DEFPROCDITCH 








11O0IFS<3X159THFNPR-1 


2 1 80A«- " PAGE " +STR*< S< 6 > > 








1 1 !OIFS< 3 >-0THENl 129EL9E1 140 


2190PRINT"I HAVE CALLED THIS FILE" 








1120*FX5.1 


2200PRINT 








1130GOTO1160 


2210PRINTTAB<6),A» 








1140*FX3.2 


2220PRINT 








1150*FX8,PP 


2230INPUT"DO YOU WISH TO CHANGE THIS",QU« 








1160PQ-0 


2240A»-"PAGE"+STR»< S< 6 > > 








1179PRINT 


2259rF L£FT»<QU«, 1 )-"Y"THENPROCCHANGE 








11 90 INPUT "HOW MANY COPIES UOULD YOU J_IKE".OU 


99 fOi*PIh!T "INSERT DATA TAPF . QFT POP »Prnpr>IWC » 








1190PRINT 


2270 INPUT "ENTER WHEN READY ",22 








1200INPUT"POSITION PAPER-ENTER WHEN READY PLEASE", QME» 


22980NERROR GOTO 2398 








1210VDU2 


22909-0PEN0UT< At ) 








1220FOR R-l TO S< 3 > 


2390FOR Y-l TO 7 








1230 IF Tt<R>-"" THEN PRINT" " 


2310 PRINT€0,S<Y> 








1240PRINT T«<R>'NEXT 


2320NEXTY 








1250 GRP-63-S<3) 


2330FOR Y-l TO S< 5 > 








1260 IF GAP >30THEN 1290 


2340PRINT€B,T«CY> 








1270 FOR SP-0 TO GAP-PRINT NEXT 


2330NEXTY 








1200PO-PQ+1 


2360CLO9E€B 








1298VDU3 


2370ENDPROC 








1308PRINT' PRINT "PAGE "jCHj" COPIES- " >PQ 


2390REPORT 








1310 IF NOT <QU-PG>AND< GAP >30 >THEN 1200 


2390PR I NT "SOMETHING IS WRONG -RESET RECORDER" 








1320 IF NOT <QU-PQ>AND<GAP<31>THENI210 


2400 I FEPR- 1 7THENEND 








1330GOTO679 


2410GOTO2279 








1340REM TAPE 


2429DEFPR0CCHANGE 








13581NPUTTAB<7>, "DO YOU WISH TO LOAD",OU« 


24 38 INPUT "WHAT NAME WOULD YOU LIKE",D* 








1 360 1 F LEFT»< QU« , 1 >-" Y " THENPROCFETCH • GOTO670 


2440 INPUT "WHAT REFERENCE NUMBER", X 








1 370PROCD I TCH • G0T0678 


24908< 6 >«X 








1390REM LAST LINE 


2460A*-D*+STR*< X > 

■l bl aaaaaai -aaai laaaaaL bl "b -bbbl bbbbbl bbbbi bbbbl bbl 








1 398 1 FT»< S< 5 > >- " " THENS< 9 >-«< 3 >- 1 • GOTO 1 390 


2479ENDPR0C 








1400 L-S<5>+! 'COTO670 


2480DEFPROCFULL 








1410REM READ 


2499PRINT"MY MEMORY IS FULL, WE NEED TO SAVE" 








BBL bl ^ bbbl BL L bbbi ■ ■ ^bbbl L -BL BBBI 

1420R-B' PRINT 


25O0PPINT"THT^ PAGE, THEN START 'NEW'." 








1430 N-INT<(S<5X-4 V5> 


2510ENDPROC 








1440FOR C-l TO N 


2529DEFPP0CN0 








1450FOR K-l TO 4 


2530VDU15 ■ @r;*fl, 00000992 








1460 R-R+l 


2340PRINT CHP*< 129>jRt" " ; • e"<™2578 








1470PROCNO-PROCLINE 


2550ENDPR0C 








1480 NEXT K 


2560DEFPPOCLINE 








1498PRINT"KEY-C0NTINUE"'GOt-GETi 


2570PR I NT i TAB< 3 ) I CHP*< 1 30 >T*r R > 








1308NEXTC 


2590ENDPR0C 








1318GOT0678 


2590DEFPR0CLESS 








1520REM ALTER 


2600XXH_FN<U*> 








1338 INPUT "WHICH LINE 'SOU 


r-reioue-MTn*"-!*, i ,<xx-i >> 








1348ZY-8 


2620ENDPR0C 
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TRIME Jtf USFBERS 




A SIMPLE arithmetical program 
to identify any Prime Number. 
Key-in the number you want and 
the computer will tell you whether it is 
a prime number, an even number, or 
what its factors are if it is neither of 
those. Strictly for mathematicians. 



59 
60 
79 
80 
90 
100 

110 

120 
130 
140 

159 

160 
170 
180 
190 

200 

210 

220 
?30 
240 
250 
260 
270 
280 
290 

300 

310 
320 
330 



CLS 

ON ERROR GUTU 80 

PROL title 

PROCcalcuUte 

END 



DEF PROt title 

X«-CHR* t 39+CHR* 1 57+CHR* 1 35 

PRINT' 

PRINTX*+CHR*14r , ****»:*;#;** PRIME NUMBERS *********" 

PRINTX*+CHR«141 "*******#* PRIME NUMBERS *********" 

PRINT 

PRINT"This Program enables you. to find out if" 

PRINT"* number is a prim* number. When you" 

PRINT"enter a WHOLE POSITIVE number there" 

PRINT"will be one of three responses ' even 41 

PR I NT" number , non-Prime odd number ( shown bv" 

PRINT" its factors), and PRIME NUMBER. Because" 

PRINT'Wou may Ml*h to enter several similar" 

PR I NT "numbers in turn the screen will not" 

PRINT"clear after each number and will scroll" 

PRINT"if necessary. The larflest number you" 

PR I NT "car, enter is 2147463647." 

ENpPROC 



340 

378 
380 

390 
480 
410 

420 
430 
440 
45fl 

460 
470 
460 
490 
500 
510 
520 
5SW 
540 
558 
last 



N'< 



Even number 1 



DEF PROCca leu late 

PEPEflT 

PRINTXS' INPUT "Enter number ■ 

IF N!<<1 THEN 400 

IF N^-2 OR N*-3 THEN 510 

lFN%/2"XHT<Nk/2> THEN PRINT" 

IFN:i^2»INT<N!</-P> THFN 400 

TFN*/2<MNT<N'^2> THEN 460 
F0RJ«3T0S0RN:;+1 STEP 2 

IFN^JOINT<N'<-'J'> THEN 500 

IFN5Cv'J"INTCNSC^J> THEN PRINTTflB<8>J) " 

Nfe>NK/J 
NEXTJ 

PRINT CHR»136" PPT MP NUMBER" 

GQT040CT 

FnRj-3T0S0RN^+l STEP 2 

lFWt/J<>lHT<W./J> THEN 588 

IFM5s/J*INKNX'J> THEN PRINTTRP/ 2 V'The factors of th< 

multiplicand'"- PPINTTfl8<8>J; " x * iNXfJ 



x " ; H'<s J ' GOTO5S0 



569 N'-i-N'-CJ 

570 GOTO530 
580 NEXT J 

590 UNTIL FALSE 
600 ENDPROC 
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ABSOLUTELY essential for sten, and you must type-in the symbol computer will give you the correct an- 
chemistry students, Chemical for it. You get two points for being swer. Your score is given as a percent- 
Quiz tests your knowledge of correct first time, one for being correct age at the end. A well-presented 
elements. The computer will give you at your second attempt. program which is fun to play as well as 
an element, such as hydrogen or tung- If you still have not found it the educational. 



30ON ERROR GOTO 60 
40MODE 7 

saPRQCinitUliM 

60PRGCt*xt 

70REPEAT 

80X-RNDC 64 ) 

90IF •l*m»nt<X,0)-l GOTO 80 

100»l*m«Yit<X,0>-l 

1 1 0Qu#st i on*-Qu»*t i on*+ i 

120Point*-2 

130REPEAT ' 

1 40CLS 

150PRINT' ' ' 'TflB< 11 >;CHR*< 141 )j "CHEMICAL QUIZ" 

160PRINT TRB<m;CHR«< 141 >j "CHEMICAL QUIZ" 

170PRINT TAB< 12 )"***#*#*******" 

180PRINT'TAB<5>j "DON'T FORGET TO ENTER FIRST" 

190PRINT'TAB< 7 )j "CHARACTER IN UPPER CASE" 

200PRINT TAB<6, 12 )j "QUESTIONS-" j Quest ion*-<Point»-l > 

2 1 0PR I NT TAB< 24 , 1 2 ) J " SCORE- " > Percent**** ; " * " 

220PRINT TAB(<17-LEN<.»l#m*-nt«<X,0))V2,15>J" ENTER SYMBOL FOR " jelementi<X,0 >j 
230 INPUT " - " R« 

240IF A«-element«<:M, 1 > THEN PROCcorrect ELSE PROCuroYvB 

250UNTIL Pointa-0 

260Af-CETi 

270UNTIL Gu#ftticmft-84 

280PRINT'" » 

290PRINT'TAB<6);"WELL DONE YOU JUST COMPLETED" 

300PRINT'TAB<11 >j "ALL THE ELEMENTS " 

310PRINT'TAB<4>j"WOULD YOU LIKE ANOTHER GO <Y/*N>" 

320PRINT'" » 

330A«-GETt 

340IF fl««"Y" OR A»-"y" THEN RUN ELSE GOTO 330 

3S0END 
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360DEF PROCinitialise 

3?0VDU 23jB202j0j0>0 

390 IF 78.FFFE-164 THEN 76.D8-a.30 ELSE 7B.25R-ft.30 

398Scor»!k;-0 

400Que*tions""0 

4 1 0P*re*vtb ttefc-0 

420DIMelement*< 90, 2 > 

430DIMelement< 90, ) 

440FOR X-0 TO 94 

430READ element«<X,0) 

460RERD element»<X,l) 

470e I ement< X , >»0 

480NEXT 

490ENDPRGC 

S00DEF PRGCcorrect 

5 1 0PR I NT ' TAB< 1 6 ) j " CORRECT " 

520PRINT' TREK 4 >; "PRESS RNY KEY FOR NEXT QUESTION" 

530PROCscore 

540Points»0 

550ENDPROC 

560DEF PROCurom-a 

570Po i ntft-Po i nts- 1 

380PR I NT ' TRB< I ? ) ; « WRONG " ' 

590IF Points-© THEN PROCansuer ■ PROCscore 'ENDPROC 

600PRINT TREK 9 >j "ONE MORE GUESS<Y/N>"' 

610R*-GETf 

620IF fi«-"Y" OR R*-"y" THEN ENDPROC ELSE IF R»-"N" OR MM"'n" Poinfc*"0'PROC*«SU 
er-PRQCseore ELSE GOTO 610 

630ENDPROC 

640DEF PROCansuer 

650PRINT TREK 14 >J "ANSWER- »;#lemetrt*<X, 1 > 

660PRINT' TREK 4 >j "PRESS RNY KEY FOR NEXT QUESTION" 

670ENDPROC 

6Q0DEF PROCscore 

S905core?*»5core5<+Po i nts 

700Percenta*e*«< ScoreK/< Quest i ons#2 > >* 1 00 

710PRINT TRB<6, 12 >j "QUESTIONS-" iQutstioni 

72BPRINT TRB<24, 12 >j "SCORE*" J P*re#*t*ae50 »«" 

730ENDPROC 

740DEF PRGCtext 

750CLS 

760PRINT' ' "TflBK 11 >;CHR«< 141 >j "CHEMICAL QUIZ" 

770PRINT TRB< 11 >;CHR*< 141 >; "CHEMICAL QUIZ" 

780PRINT TRB< 12 >»*********#***» 

790PRINT'" The idea of the qui as is to flo fchroufih all the elements. " 

800PRINT'" You have two chances to answer." 

810PRINT-'" The first scores 2, the second scores 1" 

920PRINT' " Be sure to enter the first character in uPPer case and the second i 
n lower case" 

830PRINT'Tfle< 11 >j"e.3.CoPPer-Cu. " 

S40PRINT'TRB(7>j"PRESS ANY KEY TO START" 

850A*-GET« 

B60ENDPROC 

970DRTA Rl iminium,Rl, Antimony ,Sb,Ar3on, A, Arsenic. fls, Bar ium,Ba, Bismuth, Bi, Boron 
,B, Bromine, Br 

800DATA Cadmium ,Cd, Caesium, Cs, Calcium, C*j Carbon, C , Cerium, Ce, Chlorine, CI ,Chromi 
um , Cr , Coba 1 1 , Co , Co I umb i urn , Cb , CoP P er , Cu 

890DATA Dysprosium, Dy , Erbium, Er,EuroPhium,Eu, Flourine,F, Gadolinium, Gd, Gal Hum, 
Ga, German ium,Ge,Glucinum,G I, Gold, flu 

900DRTA Hafnium, Hf , Helium, He, Holmium, Ho, Hydro9en,H, Indium, In, Iodine, I, Iridium, 
Ir, Iron, Fe, Krypton, Kr 

910DRTR Lanthanum, La, Lead, Pb, Lithium, Li , Lutecium, Lu, Magnesium, MS, Manflanese,Mn, 
Mercury , H0 , Mo I u bdenum , Mo 

920DATR Neody mium, Nd, Neon, Ne,Ni eke I, Ni, Niton < emanation >,Nt, Nitroflen,N, Osmium, 
0s,0yyQen,0 

930DATA PaUadium,Pd,PhosPhorus,P,Platirium,Pt,Potassium,K,Praseodymium,Pr 

940DATA Rad i um , Ra , Rhen i um , Re , Rhodi um , Rh , Rub i d i um , Rb , Ruthen i um , Ru 

950DRTR Samar ium,Sa, Scandium, Sc, Selenium, Se, Si I icon, Si, Si I ver, A9, Sodium, Na,Str 
ontium,Sr,SulPhur,S 

960DRTR Tantalum,Ta,Tellurium,Te,Terbium,Tb,Thal lium,Tl, Thorium, Th, Thu I ium,Tm, 
Tin, Sn, Titanium, Tj. , Tungsten, M 

970DRTA Uranium, U, Vanadium, V, Xenon, Xe, Ytterbium, Yb, Yttrium, Yt, Zinc, 2n, 21 rconiu 
m,Zr 
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D 



ESIGNED chiefly to help pho- program for anyone needing a precise want, it provides a countdown facility 
tographers with colour process- timing mechanism. Besides the alarm, — and a five-second delay period before 
ing, Interval Tinier is a useful which you can set for the time you the timer goes into action. 



30 


REM 


40 


REM 


50 


REM 


€0 


REM 


70 


REM 


80 


REM 


90 


REM 


100 


REM 


130 


REM 


140 


REM 



1 ONERRORst art-0 ■ GGTG220 

20 REM tottotototototototototototottototototttototttotto 

* Title 'INTTIM' * 

* Interval Timer * 

* With Count-down Warning * 

* 3ound varies m Pitch to 

* each five seconds * 

* durins warnin9 Period * 

* Useful for Photo«Sr aP hie * 

* Colour Processing * 

to 'M 

to BBC Micro Model ft or B * 

150 REM totototototototototototototototototototototototototototo 

160 CLS 

170 start-0 

180 PROCtitle 

190 PRINTTftB<5,7>j i, Pre»* ,, jCHR«<130>; ll SPflCE l, jCHR«(135)j" - 

200 PR I NTTAB< 5,9);" Press " ; CHR*< 1 30 > j " RETURN " ; CHR»< 1 35 > ; » - 

210 fl«-GET»« IFflf-" " THENPROCdetail 

220 CLS<N-0.W-0<TT-0<Nl-0 

230 PRINTTAB< 0, 20 ); "To" ;CWR*< 133); "REPEAT" ;CHRf< 135); "last sequence Press" jCHR 
•( 133); "RETURN" 'PRINTTAB<30,21 ); " " 

240 PRINTTAB<3,22);"To";CHR«<134);"CLEAR";CHR»< 135); "Press" ;CHR«< 134); "ESCAPE" 
-PRINTTAB<20,23);" " 

250 PROCtitle 

260 PRINTTAB<6,6);"LAST TIMING (Total) 

278 PRINTTAB<6,7);"LA8T COUNT-DOWN 

280 PRINTTABC 30, 9 ); CHR«< 129 ); "CLOCK" 

290 PRINTTABC 24,12);" " <PRINTTAB< 22, 13); 

300 PRINTTAB<0, 12); 

310 INPUT" TOTAL TIME SECONDS - "TT 

320 REM * Disables REPEAT before first run * 

330 IPTT-9ANDstart-0 TWEN220 



If - II 

It , If 



for DETAILS" 
to continue" 



"Nl+W;" 
"W;" 



n 



if 



it 



n 
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340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
490 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
672 
600 
690 
700 
710 
720 
730 
740 
750 
762 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 

1030 

1040 
1050 

I960 



start- 1 

IFTT< 1THENPRINTTABC 23, 12 )j "REPEAT" ■ TT-N1+W ■ GOTO380 

INPUT" COUNT-DOWN SECONDS - "W 

IFUVFT THEN290 

N-TT-W 

PRINTTAB<2, 15 >j "TOTAL TIME - "jTTj" SECONDS "j 'TAB< 12 >" < FROM '8 IGNAL' >« 

Nl-N'Wl-W 

REM * Dtltv after 'RETURN' * 

T I ME-0 ■ REPEflTUNT I LT I ME >500 

SOUND1,~15,53,20 

TIME-0 'REPEATUNTILTIMEM00 

8OUNDi^-13/101i2«8OUND2/-15i99i2 

REM # Warn* end of time * 

SEC*-0'F-100<G-0 

REM * Turn off cursor * 

VDU23,1,0j0j0j0j 'REM < On OS 0-1 utt VDU23j8202j0j0j0j > 

TIME-0 

REPERT 

3^-SEC% 

SEC*-TIME/100 ■ MINfc-SECSS/fiO 

IFSEC*>TT-U THEN IPSEC%*S*E+ 1 PROCsnd 

3*-8EC*-<MINfc*60> 

PRINTTAB<31,11>;MIN?<j" "jSX;" " 

UNTILSECfc>TT~l 

PROCuarn 

GOTO250 

DEFPROCwarn REM end of Process 

TIME-0 

ENVELOPE!, 1,-26,-36,-45,255,255,255, 127,0,0,-127, 126,0 

SOUND 1 j 1,50,50 

REPEATUNTILTIMEM5 

ENDPROC 

DEFPROCdetj.il 

C'LS 

PROCtitle 

PRINT' "This is a Program to assist in Photo" 

PRINT"colour Proeessin9 or similar Processes" 

PRINT"eallinG for very accurate timin* to the" 

PR I NT "second." 

PRINT"The timing required is entered in two" 

PRINV'sertions." 

PRINT"<a> the TOTAL time required." 

PRINT"* b> the COUNT-DOWN time < included in" 

PR I NT "the TOTAL) to the mnd of the Process-" 

PRINT'"Section <b> Produces timin* 'bleeps' at" 

PR I NT "one second intervals, the tone risinfi" 

PRINT"ever« five seconds, as a COUNT-DOWN" 

PRINT" indicator, terminated by a final warning" 

PR I NT "sound. <END of Process)" 

PRINT' "Press SWIFT for more details" 

DL- 1 NKEY< - 1 ) ' FORPP- 1 TO 1 00 ■ NEXTPP 

IFDLO-1THEN840 

CLS ■ PROCt i 1 1 e 

PRINT' "After setting uP the timings required" 

PRINT"Pressin* RETURN activates a five second" 

PRINT"dela* ending in a one second warning." 

PRINT' "The end of this warning mirks the start" 

PRINT"of the timing ProPer, leaving the" 

PRINT"oPerator fr^tt to handle the Process." 

PRINT' "To repeat a timin-B sequence Press 'RETURN' 

PRINT' "Press SHIFT to continue" 

DL- 1 NKEY< - 1 > ■ FORPP- 1 TO 1 00 ■ NEXTPP 

IFDLO-1THEN950 

ENDPROC 

DEFPROCtitle 

PRINTTAB< 10, 2 )jCHR»< 131 >jCHR«141j" INTERVAL TIMER" 

PRINTTAB< 10, 3 >;CHR«< 132 >jCHR»141j" INTERVAL TIMER" 

ENDPROC 

REM *** Countdown warnin-3 *** 

DEFPROCsnd 

S0UND1,-15,F,4 

C-G-M'IFG MOD5-0 THENF-F+12 

ENDPROC 



tt 
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THE LETTERS of the alphabet 
are jumbled. The object of Al- 
phabet Jumble is to re-assemble 
them in the correct order. Letters are 
numbered and can be moved one at a 
time or in blocks into the empty spaces. 
The cursor gives you two lines; the top 
one is for the letter or letters you wish 
to move, the bottom line for the posi- 
tion to which you want to move them. 




DIM fi«<31 ),X*<50) 
MODE 7-M-0 

PRINTTAB< 13. 1 >;CHR»< 141 >; "ALPHABET" 
PRINTTABC13,2>jCHR»< 141 >; "ALPHABET" 
PRINT"THIS IS THE GAME OF ALPHABET." 
PRINT"THE OBJECT OF THE GAME IS TO REARRANGE THE 
ORDER IN AS FEW MOVES AS POSSIBLE. YOU CAN MOVE ANY 
70 PRINT -PRINT" HIT ANY KEY TO CONTINUE" 

W»-GET«-MODE 1 'VDU 19, 0, 4,0,0, - VDU19, 1 . 0,0, 0,0 
FOR 1-1 TO 31 -READA«< I>-NEXT 

DATAJ,E,F,D,B, ,C,G,A,L,K, ,I,M,H,P,0. ,N,R,S,T,Q 
DATA,2,V,U, ,Y,X,W 
FOR 1-1 TO 5 ■ X*< I >-A*< I ) ■ NEXT 
FOR 1-7 TO 1 1 - X* I )-A«< I ) • NEXT 
FOR 1-13 TO 17'X»<I >-A*< I ><NEXT 
FOR 1-19 TO 23-X«< I >-A«< I ><NEXT 
FOR I -23 TO 27 i X*< I >-A«< I ) ' NEXT 
FOR 1-29 TO 31 'X«< I )-A»< I ><NEXT 
FOR 1-6 TO 24 STEP 6 ' X«< I ) 
X»<29>-" " 

FOR Q-l TO 104'S-RND<30>+1 
•< 32 > • NEXT 

200 PRINTTAB< 10,7V'TH1S IS THE ALPHABET'" 

PR I NTTAB< 3 , 1 2 >" 1 234367B90 1 234567990 1 234367990 1 " 
PRINTTRB< 3, 1 1 >" 1 1 1 1 1 1 1 1 1 1222222222233" 

COLOUR 134- COLOUR 1 

FOR 1-1 TO 31 'PRINTTAB< I+4,15)X«<I >j 'NEXT 
PRINT'PRINT 
COLOUR 1 32 'C0L0UR7 

PRINTTAB<8,20>"ENTER YOUR MOVE <FROM/TO>" 
PRINTTAB<:9i21)"ENTER 50^30 TO RESTART- 
INPUT F'PRINTTAe<0,23>" 



10 

20 
30 
40 
30 
60 



90 
90 
100 
110 
120 
130 
140 
130 
160 
170 
190 
193 
183 



210 
228 
223 

230 
246 
243 
230 
260 
270 



LETTERS INTO ALPHABETIC* 
LETTER INTO ANY SPACE." 



NEXT 



SA-RND< 30 )+ 1 • X»< 32 )-X»< 8 ) ■ X«< S >-Xt( 8A ) i X«< SA )-H 



PRINTTRBO-SS) 1 



INPUT T 



y 



280 

290 

300 
310 
320 
330 
340 
350 
360 
363 
370 
373 
376 
360 
390 
400 
410 
420 
430 
44Q 
450 
469 



IF F-38 AND T-30 THEN RESTORE ■ M-0- CLS ' GOTO 90 

IF X«<T><>" "THEN PRINTTAB<0,23)"TRY LANDING ON A SPACE THIS TIME"<GOTO 24 

y a t )-X*< F > 

X>< F>-" " 

Q«-" " 

FOR 1-1 TO 31 

o*-o*+xt( I :■ 

NEXT 

PRINTTAB< 10,7>"YOUR ALPHABET SO FAR'" 

COLOUR 134- COLOUR 1 

PRINTTAB<4,13>iO* 

C0L0UR132'C0L0UR7 

PRINTTAB<4, 15>J" " 

M-M+l 

M»-" ABCDEFGHIJKLMNOPGRSTUVWXYZ 

IF 0»-M« THEN 420 

GOTO 240 

CLS • PRINT • PRINT'TflNTASTIC f I ■ 

PRINT"YOU'VE LEARNED THE ALPHABET II" 

IF M<30 THEN PRINT"AND IT ONLY TOOK " j Mi "MOVES" • GOTO460 

IF M>30 THEN PRINT"BUT IT DID TAKE YOU A TOTAL OF" jM> "MOVES" 



PRINT" 
AT YOUR LAST RECORD 

470 R»-GET» 

490 IF R«-"Y" THEN 

490 PRINT 

590 PRINT"YOU WANT 
HT?" 

310 END 



J 



PRINT"ARE YOU READY TO BE 



NOW ? 



RESTORE i M-0 - CLS ■ GOTO90 



I 



TO POLISH UP ON THE ALPHABET WITH A PENCIL AND PAPER, RIG 
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IF YOU do not know your multipli- 
cation tables, Tables will put them 
at your fingertips. You can choose 
any table from one to 12, or even 
multiply by 17.125 if you wish. A 
useful program not only for those who 
were not paying attention in class but 
for computer novices wanting to learn 
about simple programming structures. 




10MODE7 












20REM ,, MULTIPLICflTION 


TABLES" 










50PRINT' 












60REM"PRINT HERDING" 












70VDU129J141; -PRINT; 


< PR I NTTfiEK 6 > J 


"MULTIPLICATION 


TABLES" 


80VDU129j141j 'PRINT; 


TflB< 6 >; "MULTIPLICATION 


TABLES" 


90PRINTSTRING*C 19, "* 


" > 










■100REM"GET THE USERS i 


CHOICE" 










110VDU28,0,23,39,8 












120PRINT' 












130PRINTTflB<4); - INPUT 


"WHICH TABLE 


WOULD 


YOU 


LIKE", 


V 


140PRINT'" 












150REM"DO THE CALCULATION" 










160 FOR I- 1 TO 12 












170 PRINT"'M;"X ";V; 


"» ";I*V 










180NEXT I 












190GOTO130 














; o* , ■-:-;-■ ■■.*;■■■'.■; ■■ 

*t' ^ijf i ■ * j i ' **— \Ttaittrty 




/ ' ■•" -III ■■ &£^.*M&$i£ l 



%«j»5a- iy 



IF YOU do not know your typewriter 
keyboard, you will after you have 
played React a few times. A letter 
appears on the screen and you must hit 
the same key as quickly as possible — 
remember to use shift. The computer 
gives your score and also your time at 
the end of 20 attempts. 

It is not so easy as it sounds, even for 
experienced typists, because of the flus- 
ter element involved. 



40MQDE 7 

50PRINT' 

60PRINT"THIS IS fl REACTION TEST, WHICH WILL" 

70PR I NT "IMPROVE YOUR TYPING SKILLS." 

00PRINT"A LARGE LETTER WILL APPEAR AT THE" 

90PRINT"CENTRE OF THE SCREEN AND WHEN YOU" 

100PRINT"8EE IT, PRESS THAT KEY," 

110PRINT 

120PRINT"YOUR SCORE AFTER 20 TRIES WILL BE" 

130PRINT"DISPLAYED AT THE BOTTOM OF THE SCREEN." 

140PRINT 

150INPUT"ARE YOU READY", A« 

160 TIME ■ 

170 C-0 

190D-0 



190REPEAT 

200 Tfc-TIME 

210 L-RND<26>+64 

220PRINT TAB<14,1£)jCHR«<141 >jCHR»< 129>;CHR«<L> 

230PRINT TAB<14,17>jCHR*< 141>jCHR«< 129);CHR»(L> 

240 IF rNKEY«<l)OCHR*<L> THEN 240 

2S0 D-D+TIME-T* 

260 C-C+l 

270 UNTIL C-20 

280PRINT 

290PRINT"YOUR REACTION TIME IS " 

300PR I NTD/2000) "SECONDS PER WORD" 

310PRINT 

320 INPUT"RNOTHER CO", an** 

330 IF LEFT«<Anfi«,l)-"Y"THEN 40 ELSE END 
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10REM /// MAP GAME PROG 1 /// 
2OM0DE1 

3ovdu23 p i P 05 0;o;o; 

40VDU19, 1,2, 0,0,0 

50VDU19,2,6,0,0,0 

60VDU19, 3,3, 0,0,0 

70CQL0UR130 

80CLS 

90GCCIL0, 1 
100FGR I7.=OT0190 
11 OREAD X%, XI 7., Y7. 
120M0VEX7., Y/l 
130DRAW X17.,Y7- 
140M0VEX7., Y7. + 4 
1 50DRAW X 1 X , Y7.+4 
160NEXT 
170C0L0UR128 
180VDU2I 

190CHAIN"MPR0G2" 

200DATA4 ,4,1 1 6 , 608 , 620 , 1016, 608 , 628 , 1 008 
210DATA608, 628, 1000, 624, 628, 992, 472, 484, 976] 
220DATA528, 596, 976, 472, 596, 968, 472, 588, 960 



230DATA408, 420, 952, 472, 588 
240DATA448 , 580 , 944 , 392 , 420 
250DATA384, 420, 928, 456, 556 
260DATA456, 543, 920, 384, 396 
270DATA424, 516, 904, 368, 380 
280DATA368, 380, 888, 432, 540 
290DATA600, 652, 888, 368, 372 
300DATA424 , 660 , 880 , 392 , 4 1 2 
3 1 0DATA4O0 ,412, 864 , 424 , 652 
320DATA440 , 652 , 856 , 440 , 652 
330DATA416, 644, 832, 416, 636 
340DATA432, 636, 808, 424, 620 
350DATA408, 428, 784, 440, 612 
360DATA440 , 604 , 768 , 432 , 604 
370DATA432 , 604 , 744 , 432 , 628 
380DATA480 , 628 , 728 , 472 , 636 
?90DATA480, 652, 704, 472, 652 
400DATA320 , 348 , 680 , 464 , 668 
410DATA376, 388, 672, 464, 668 
420DATA464 , 663 , 664 , 264 , 404 
430DATA272, 364, 648, 384, 404 
440DATA248, 412, 640, 456, 676 
450DATA464, 524, 632, 544, 684 
460DATA456, 460, 624, 480, 500 
470DATA544, 700, 624, 264, 428 
480DATA496, 500, 616, 536, 703 
49.0DATA536, 732, 608, 216, 220 
500DATA496, 503, 60O, 536, 732 
510DATA480, 508, 592, 544, 740 
520DATA5S2, 743, 584, 176, 404 
530DATA184, 380, 568, 584, 772 
540DATA576, 780, 560, 1 68, 380 
550DAT A 1 68 , 380 , 544 , 568 , 772 
560DATA568, 772, 536, 160, 396 
570DATA176, 396, 520, 4 72, 484 
5B0DATA176, 396, 512, 464, 492 
590DATA576, 780, 512,216, 388 
600DATA208, 396, 496, 480, 748 
610DATA192,396,488,472,764 
620DATA192, 396, 480, 464, 344 
630DATA456, 484, 472, 496, 852 
640DAT A456 , 460 , 464 , 504 , 852 
650DATA496, 860, 456, 184, 380 
660DATA 1 68 , 372 , 440 , 438 , 860 
670DATA488, 860, 432, 136, 372 
680DATA 160, 372, 416, 472, 344 
690DATA456, 844, 408, 144, 292 
700DATA144, 284, 392, 416, 336 
710DATA408, 328, 384, 168, 252 
720DATA152, 244, 368, 424, 423 
730DATA176, 212, 360, 472, 484 
740DAT A520 , 524 , 352 , 536 , 556 
750DAT A560 , 852 , 344 , 552 , 844 
760DATA5 12 , 844 , 328, 480, 836 
770DATA480, 828, 312, 440, B20 
780DATA432, 780, 288, 424, 652 
790DATA592, 636, 272, 656, 692 



952 , 392 , 420 , 944 
936,456,580,936 
928,384,404,920 
912,472,540,912 
896, 432, 540, 896 
888,560,572,888 
880,392,412,880 
872,424,660,872 
864,408,420,856 
848,440,644,840 
824,424,636,816 
800,416,612,792 
784,440,604,776 
760,432,556, 752 
736,432,436,728 
720,472,644,712 
696,472, 660,688 
680,272,348,672 
672,272,396,664 
656,456,676,656 
648,456,676,648 
640,248,420,632 
632,272,428,624 
624,512,524,624 
616,456,468,616 
616,256,428,603 
600,232,428,600 
600, 176,420,592 
592, 176,404,584 
576,560,756,576 
568, 176,380,560 
552,563,764,552 
544, 160,388,536 
523,568,780,528 
520,568-780,520 
512,520,564,512 
504.,480,764,504 
496,784,820,496 
488,784,836,488 
480, 192,396,472 



472 



:00, 396*464 



464,224,338,456 
448,496,860, 448 
440, 152,364, 432 
424, 480, B52, 424 
416, 144,303,408 
400,432,836,400 
392, 168,268,334 
376,424,804,376 
363,472,804,368 
360,496,756,360 
352,568,852,352 
336,488,492,328 
320,448,468,312 
304,440,796,296 
280,416,540,272 
,408,532,264 






SO YOU think you know your map 
of Britain? This educational and 
entertaining quiz will tell you how 
good your geography is. The computer 
will give you a place name and you must 
try to move the cursor to its correct 
location on the map. When you have 
done that, the computer will give you a 
new place to identify. Only very accu- 
rate answers will be accepted. 

The program is in two parts. Load 
part one, then when the map appears, 
load part two. Be sure to save both 
programs before you run them. 





SOODAT A6QG , 6 1 2 , : 

81ODATA384,444,248,438,532,243,368,436,240 
820DATA504, 524, 240, 363, 436, 232, 360, 338, 224 
830DATA400 , 420 , 224 , 400 , 420 ,216 



1 OR Eh 



// MAP 



20QN ERROR GO 
30DII1 WV. (99) 
40VDU19,3,3,0,0,0 
50VDU6 



GAME PROG 
D 580 






// 
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60PRINT TAB (24,2)" * MAP GAME * " 


70REPEAT 


BO IX— 1 


90REPEAT 


1 OOF=0 


11060-0 


120X1=640 


130Y1=512 


1 40 1 7.= 1 */.+ 1 


150 IF IX>99 THEN GOTO 420 


160READ A*,H7.,V7. 


170 IF MX(IXX>0 THEN GOTO 140 


• 180VDU4 


i90VDU28,0, 31 , 39, 26 


200VDU 1 2 


210PRINT TAB (7,0) "Using the cursor keys, find" j 


220PRINT TAB<0,2)"t ";I7.+ 1;" 3" 


230PRINT TAB<S,2)SPC<27) ; 


240PRINT TAB<18-<LEN<A*> /2) ,2) "* ";A*;" #" 


250PRINT TAB (0,4) "Press "F* when you think you've found it"; 


260VDU5 


270GC0L4,0 


280REPEAT 


290M0VE X 1 , Y 1 : PR I NT " X " 


300F0R W-OTOiOO 


310NEXT 


320M0VEX 1 , Y 1 : PR I NT " X " 


330#FX21,0 


340 IF INKEY(-58) AND YK1024 THEN Y1=Y1+10 


350IF INKEY(-42) AND Yl>210 THEN Y1=Y1-10 


360 IF INKEYC-26) AND X1>0 THEN XI -XI -10 


3701 F INKEY(-122) AND XK1260 THEN Xl-Xt+10 


380IF INKEY<-68) AND F=0 THEN SOUNDS* 1 1 , -12, 1 , 2: FOR W-0 TO 200: NEXT: G0=G0+1 


390IF INKEY(-68) AND Xl>H7.*10-20 AND XKH'/.*10 AND Y1>VX#10 AND YKV3C*10+24 THE 


N SOUNDS 11,-15, 180, 15tF-l : WX < IX) -03 


400UNTIL F=l OR G0>3 


410IF G0<4 AND F=l THEN GCOLO, 4: M0VEH7.#10-5, V7.*10+18: PRINT " X " 


420UNTIL IX>98 


430REST0RE 


440SX-0 j 


450F0R I=0TO99 


460IF WX(I)-0 THEN SX-SX+1 


470NEXT 


480VDU4 


490VDU23, i,o;o;o;0; 


500CLS 


510IF SX-0 THEN PRINT TAB(4,3)" ALL CORRECT - WELL DONE !!": END 


520PRINT TAB<4,1>" You will now be tested on" 


530PRINT TAB<6,3>" the ";S7.;" you got wrong!" ; 


540T-TIME 


550REPEAT UNTIL TIME>T+1000 


560REST0RE 


570UNTIL FALSE 


5800N ERROR OFF 


5V0M0DE 7 


600REP0RT 


610PRINT" @ line " ; ERL. 


620END 


' 630DATAP1 ymouth, 47, 25, Torquay , 52, 26, Bournemouth, 63, 27, Portsmouth , 69, 28, Southam 


i pton, 67, 30, Brighton, 74, 29, Bristol , 58, 34,Readinq, 70,35, London, 74, 36, Southend -on-S 


1 ea,80,37 


640DATAI pswich, 82, 4 1 , Norwi ch, 82, 47, Birmingham, 62, 44, Coventry, 63, 43, Cardi ff ,54, 


35, Oxford, 68, 37, Cambridge, 75, 42, Swansea, 49, 36, Li verpool ,58,52, Dover ,84, 33, Landse 


nd, 36,23 


650DATATruro, 42, 24, Ramsgate,S4, 35, Baltimore, 18, 37, Gal way, 22, 51 , Wexford, 36, 43, P 


embroke, 43, 38, Whit shaven, 53, 61 , Weymouth, 60, 27, Bridl ington, 74, 59, Lancaster, 59, 57, 


Isle of Skye, 40,87, Eastbourne, 78, 29, Boston, 74, 48, Kings Lynn, 77, 48 


660DATANottingham, 68, 49, Aberystwyth, 49,43, Stoke-on-Trent , 63, 49, Manchester ,61,5 


2, Leeds, 66,55, Teeside, 70, 61 , Newcastle-upon-Tyne, 66, 65, Carl isle, 55, 63, Peterhead, 6 
1 5,88 

670DATAEd inburgh, 57, 74, Gl asgow, 50, 73, Dundee, 59, 77, Aberdeen, 64, 84, Inverness, 54, 


87, Wick, 58, 95, Dumfries, 52, 64, Ayr , 47, 68, Blackpool ,57, 54, Wrexham, 57,49, Hereford, 58 


, 40, Bri dgwater , 54, 32, Exeter , 53, 27 


680DATACheltenham,61,39,Luton, 74, 37, Holyhead, 47, 51, Isle of Man, 49, 59, Orkney Is 


lands, 61, 100, Isle of Lewi s, 40,93, Isle of Whi te, 67, 27, Kingston upon Hull, 75, 56 


690DATAC1 acton , 81 , 39, Barow-i n-Furness, 57, 58, Ki 1 mar nock , 48, 70, Oban , 44, 78, bur nes 


5, 48, 97, Thurso, 56, 98, John o' Groats, 59, 98, St i r 1 ing, 53, 75, Ben Nevi s, 46, 82, Berwick- i 


upon- Tweed, 64, 71 


700DATABlyth, 66, 66, Darling ton, 67, 61, Skegness, 78, 52, Mansfield, 68, 51, Lincoln. 72. 


52, Northampton, 69, 45, Sal isbury, 63, 32, Tunbridge Wei Is, 76, 32, Athlone, 28, 52, Ti ppera 


ry, 28, 44, Donegal , 27, 63, Dundal k, 38, 57, Merthyr Tydfil , 53, 33 


710DATALi zard poi nt , 41 , 21 , Start point , 52, 24, Newquay, 40, 26, Bude, 44, 29, Barnstapl j 


e, 49, 32, Cardigan, 45, 40, Pwllheli , 47, 47, Bel fast , 39, 64, Dub 1 in, 38, 50, Cork, 22, 38, Li me 


r i c k , 24 , 45 , Water f or d , 33 , 4 1 




ACORN PROGRAMS December 1983/January 1984 



33 



L 



tit 



ney Lift 






H&H 
SOFTWARE 



PRESENTS 3 NEW TAPES 

for the 

BBC 32K COMPUTER 

to add to their existing range 
of games and educational software. 

LOOIMEY LIFT 

A new action packed arcade game with hi-res graph- 
ics, full colour and sound. Keep your guests jumping, 
operate the lift and watch out for the luggage. The 
alternative is the sack! £7.50 

CHEMIPLANT 

Another first? A chemical plant simulation. Avoid 
explosions, spills and other disasters on your way to 
your first million. Plant manual included. Hi-res 
graphics. £7.50 

STORY 

Electronic storytelling! 

First make up some scenes using pictures from the 
computer bank or use your own drawing skills. Then 
write your story. Up to 7 screens can be displayed, 
saved and printed. £6.50 

To get more information about our new and existing 
software, ask for a catalogue. Please send a s.a.e. 

* *Disc versions available: please add £1 .50* • 

Please send orders and cheques/PO to: 

H&H Software, Dept B, 53 Holloway, Runcorn, 
Cheshire WA7 4TJ. Tel: 09285 65566 



TYPEASY 

Typing tutor for BBC model B or Electron 

• 139 graded exercises on cassette or disc 

• PLUS routines for writing more yourself 

• KEYBOARD DISPLAY with pointer 

• NEW KEYS practised in one line exercises 

tells you which finger to use 
CAPS/lower case, numerals, punctuation, signs! 

• ADVANCED multiline paragraphs - checks 

all strokes, new lines, etc at end of copy 

• MEASURES SPEED in words/minute 

• LOG of pupil's work displayed or printed 

A game to take you to FRENETIC SPEEDS 



LETTERS rain down faster and faster — KILL them by 
pressing the right key before they occupy your base. Choose 
from many levels: * . 




u/l cose, numerals, whole words 
Finds and attacks your weak spots 



K v 



1 ' 



Typeasy _ cassette £8.95 

disc 40 track £12.50 

Type Invaders cassette (BBC only) £6.95 

Two on one disc 40 track £, 1 6.50 

all inclusive cash with order 



Carswell Computers Faringdon, Oxon, SN7 8JN 



B 




oK r/lfl 4 fuiMt 



A FEW EXAMPLES FROM OUR GROWING RANGE 



Retail 
£5.95 



Our Pricee 
£4.99 



£7.95 



£7.95 



£9.29 



£9.29 



Great Britain Limited S Hessel 

You are the Prime Minister of Britain, you select 

the party you represent, your aim is to stay in 

oftice as long as possible. You control inflation. 

unemployment and other economic problems. 

You must remain popular because election night 

>s coming up. 

Road Runner Superior Software 

Full version of arcade game. Features Include: 

scrolling screen, radar, fuel gauge, smoke screens 

etc. Keyboard or joysticks. 

747 Dr Soft 

Full blown simulation of taking off, flying and 

landing a Jumbo. Large dials, pointers, digital 

readouts, written by a pilot. Excellent piece of 

software which includes separate briefing 

program, maps. etc. 

Logo II Computer Concepts 

First implementation of graphics language LOGO 

that is now very popular In America 

Beebmunch UK 

High resolution graphics and sound make this a 

great version of packman. Includes ghosts, fruit 

etc. 

Prices include VAT and P&P. 
The prices above are tor ONE cassette, buy more and get up to 40% 

DISCOUNT on retail. 
Cassettes are In stock and available for quick dispatch 

by 1st claaa post 

For catalogue (and orders) send name and address to: 

Rlckaoft, Dept DS, 79 Warren Drive, Hornchurch, Eihk RM12 4QX. 

Te*: (04024) 47782 



£11.50 



£9.50 



£9.99 



£4.99 
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HERE IS another variation on the 
familiar Maze theme. This time 
the maze consists of gaps in a 
series of vertical stripes and your aim is 
to move a star through the gaps from 
the left-hand side of the screen to the 
right. That sounds simple enough but 
the catch is that the gaps move about 
and you will need to be alert to keep up 
with them. You will be working against 
the clock, too, and trying to improve 
your time will add to the excitement of 
this well-thought-out and addictive 
game. 



40 
50 
60 
7G 
69 
90 
100 
110 



140 

1*50 
160 
170 
190 
190 
200 
210 
220 
230 
240 
250 
260 
278 
280 
290 
300 
310 
320 



MOVES 
DOWN" 

t FFT" 
PPESS 



HP" 



ANY KEY TO CONTINUE 1 



DIM SP'40:- 

M0<>F 1 • R~P ■ - Bl «4 

MDU23 . ?2S . 255 . 255 . 255 - 255 . 255 - 25-5 , 255 , 255 

MODE 7'PRINTTR6<9,2'>:CHP*14l ;CHP«!30i "tt* BRP MR2E 

PPINTTRB<9.3>)CHR*14l iCHP»l30: "**+ SAP MR3E ***" 

PRINTPRINT"YOU MUST GET THE '*' FROM tmf i FFT . TO" 

PRIHT"Tn tuc othmt riF THF SCRFEN THPOUGH THE" 

PRINT"GRPS IN THE BAPS (WHICH MOVE >" 

PRINT • PR TNT ■ PRINTCHR«1 34 i "KEYS" 

120PRINTCHP«133" " 

130 PPINT'PRINTPPINT" - - 

PRINT PRINT" • - MOVES 
PRINT PRINT" v - Mfl'JFc; 

PPTNT.ppTNTPRINTiCHR»129i " 

E*»GET« ■ MODE 1 VDU23 ; 8202 , ; ; i 

VDU19, 1 -6.0,0.0 

FOP 0-4 Tfj 39 STEP 2 

FOR R-5 TO 39 

COLOUR 1 

PR I NTTRB< . R !> ; CHP«225 

NEXT R 

g-PNr»< ?3 >*6 

SP< Q >-S 

PR I NTTRB' . S > I CHR»32 

NEXT 

H-3 ■ V-RNK 23 >+6 ■ HR-2 • VR- 1 2 

T I ME-0' COLOUR 3 PPINTTflR*' J5.2);"TIME 

COLOUR 1 

M«-INKEY»'0> 

TM-T I ME ■ PR I NTTRBC 22 , 2 >; TM/ 1 00 



***' 



330 
340 
350 
360 
370 
369 
390 

406 

410 
420 
130 
440 
450 
460 
470 
430 
490 
500 
516 
526 
530 
546 
550 
560 
•S70 
5S0 
590 
600 
610 
620 



H-H+2 
V-V-l 

V-V+l 



PPTNTTR8<'HR,Vfl>*' 

PRTMTTRB<HR.VR)" 

i PP I NTTRB< HP, VflV 



IF H-39 THEN 560 
PPOCCHFrK<H,V,M«"» 

IF M«-"X" RNO R-l THFN 

IF M*-" " RNO R-! THEN 

IF M*^'V" RND fl*l THEN 

COLOUR 2 

PRINTTRB''H,V*>j* 1 *" 

COLOUR 1 

Hfl'H • Vfi-V 

PR-CRMO< 1()ffV 9 

PR I NTTRRf PR . 9P< PR > V C HP*225 

SP'. PR 5-PNC"" 23 ->*6 

PP I NTTRR' PR , SP' PR * > : CHP*32 

fl-0 

GOTO 310 

OFFPPOCC HF.CK'- H . V . MH > 

X-< < H*32 >+40 > 

Y-RBS' < 32-V >*32 >-l 6 

COL-POTNT'X.Yt 

IF COL-0 AND m*— 'v« thfn fl-t 

IF VO0 AND M«- M y" THEN fl'l 

IF V>5 AND M»-"*" THEN fl-1 

FHf'PPOC 

MODE 7 

TB^TM.'100 

PPINTTRR'5. 1?\:CHR*141 :CHF«134i "MADE IT IN " : TR : 

PPINTTflB<5. 13>iCHR»141 ;CHP»134; "MROF " TW »TR : 

PRTNTTRB', 4- 15 1 *; "Mm.lLh YOU I TKE RNTHFR '.0 <YVN>?" 

D*-CET»IF D*-"Y" THFN GOTO 40 

CLS ' END 



SECONDS" 
SECONDS" 
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EE THE ORBITS of the earth and the moon in a clear visual demonstration. If you enter different data and co- 
ordination, you can create solar destruction, no less. The program uses high-resolution graphics. 



10ON ERROft GOTO 910 










460ENDPROC 




20MODE4*FX4, 1 










470 DEFPR0CM00N<XJi,Y^) 




40PRINT" INPUT SPACE SHIPS INITIAL CONDITIONS" 










490MOVE X*-16,Yfc*l6 




30PR I NT '"DISTANCES' X Earth-ShiP and Y Earth-ShiP 


"SPC<il >' 


'ir 


i Mm < 10*6 meter V 


490VDU R.6F 




60PRINT'"VELOCITIES' V in X direction of ShiP and 


■SPC<12)' 


'V 


in Y direction of 


300ENDPROC 




Ship i!V"SPCU2V'km'» <kilometer Per second)" 










310 DEFPROCCALC 




70PRINT'"eQ for a lunar orbit, the *P*c» »hiPs"' "initial cone 


lit ions could be*" 


320FOR UH-l TO 10 




A0PRINT"XES-0 Mm , YES-320 Mm"' "VXS— 1 km/i , VVS' 


■0 


km/s" 






330ST-6 . 67* 1 rt -8*ME/RM A 3 




90PRINT'"LATER.tr* chan«infl the ma»s of the Moon 1 


to 


that of 


the Earth and »lm 


540AXM-ST*XM 




'if* a bimrv star awatem" 










330AYM-ST*YM 




10OPRINT' "INITIAL CONDITIONS FOR THRUST" 










S60VXM-VXM-AXM*DT 




liaPRINTTAB<2,29>"SPPCE BAR to clear ir.if, and turn 


off thruat" 


370VYM-VYM-AYM*DT 




120PRINTTAB<2,20)"XES- Mm"SPC<: 1 1 >"U*e arroued 










580XM-XM«-VXM*DT 




130PR1NTTAB<2,22>"YES- Mm"SPC< 1 1 V'EOIT ke*a" 










598YM-YM+VYM*DT 




140PRINTTAB<2,24>"VXS- K(n^»"SPC< 9 Vonee ON" 










600RM-< XM*2+YM A 2 )*. 3 




130PRINTTAB<2,26>"VYS- Km/-s"SPC<9 >" twice OFF" 










6 1 8STE-8T*RM A 3'RES A 3 




160INPUTTAB<7,20>XES 










620STM-6. 67*10"-8*MM^RMS A 3 




170INPUTTAB<7,22>YE8 










630XMS-XE8-XM ■ YM6-YES-YM 




1801NPUTTAB<7,24>VXSVXS-VXS*10 A -3 










640RXS-8TE*XES+STM*XMS+FX*10*-9 




l90INPUTTABC7,26>VY8'VY3-VYS*10' , -3 










638AYS-STE*YES+STM*YMS*FY*10 A -9 




200RES-< XES A 2*YES'*2 )* . 3 










660VXS-VXS-AXS*DT 




210VDU 3,29,640)312; 10,3/1 










670VYS-VYS-AYS*C'T 




220 REM Mass of Moon and Earth 










688XES-XES+VXS*DT 




230MM-73.4'ME-39S0 










690YES-YES*VYE*DT 




240 REM l« k«*10*21 










700RMS-< XMS rt 2*YMS*2 > A . 5 




230 DT-2000'REM steP time In aeconda 










7 1 0R£9-< XE3 A 2*YE9' K 2 > A . 5 




260 REM Moona initial conditions 










720NEXT 




270XM-0 i YM-394 VYM-0 ■ VXM— 1 . 02* 1 0*-3 










730ENDPROC 




280RM-304 i RM9-C < XES-XM >*2*< YES-YM )"2 >* . 3 










740 DEFPROCTHRUST 




290PROC8CREEN 










7302- INKEYt > > *FX15. 1 




300REPEAT 










770IF 2—1 ENDPROC 




310PROCTHRU8T 










780 IF 2-32 PROCSCREEN ■ ENDPROC 




320XD-XM.YD-YM 










790 IF 2<6.88 OR 2>8.8B ENDPROC 




330P*OCCALC 










800VDU 4 




340PROCMOON< XD , YD > 










8102-2-8.97 




330PHOCMOON< XM , YM > 










820ON 2 GOTO 830,030,870.890 




360PLGT70,XES,YES 










830IF FX<2 FX-2'VDU 31,l-l,fc3C ELSE FX-0'VDU 31,1,1,32 




371UNTIL RE8>B00 










848GOTG 900 




380GOTO 910 










830IF FX>- 2 FX— 2 ■ VDU 31,1, I. &3E ELSEFX-0 - VDU 31,1,1,32 




390 DEFPROCSCREEN 










9<S0GOTO 900 




400FX-0-FY-0 










870 IF FY<2 FY-2V0U 31,1.2,176 ELSE FY-0 VDU 31,1,2,32 




41BCLC 










980G0T0 900 




420MOVE -16, 16 










890IF FY>-2 FY— 2-VDU 31,1, 2, &3E ELSE FY-O'VDU 31,1,2,32 




43BVDU i*F 










900VDU 3 ENDPROC 




440PROCMOONC XM, YM > 










910*FX4,9 




430PLOT70,XE8,YE8 










920VPU4 ■ STOP 
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Pawm 



2" 



100N ERROR GOTO 348 

20MODE 7 

30GX-8-20209 

40REPEAT 

30PROCmenu 

60A«-GET» 

70IF A«-"l" PROCmontMvP.**'*-"*' 

80IF A*-"*" Ppnrf^rrr. 

90UNTTL FALSE 
1 00END 

110DEF PROCinPu.t 

120PRINT'TRB< 10);CHR«< 141 )j "ENTER DETAILS" 
130PPINT TAB< 10 >iCHR»< 141); "ENTER DETAILS" 
140PRINT TAEK10))" *******#***#*" 
130PRINT'TAB<0>>"<THEN PRESS RETURNS" 
160ENDPROC 
170DEF PROr*-*" 
1 A0CL3 

iqpPOTNT TAB< 10 >iCHR»< 141 >j "MORTGAGE 6- FINANCE" 
200PRINT TRB< 10>jCHR»< 141 >; "MORTGAGE & FINANCE" 
2I0PRINT TAB< 10 )j "****#********#******" 
220PRINT'"KNOWN FIND KEY" 

230PRINT" " 

?40e»ffINT" , PrincilPal,"' "Interest. MonthN"' "Term 

ent 1 " 

230PRINT' "Principal,"' " Interest. "' "Monthly P*«ment Ter» 

260PRINT""TAB<7Jj "PRESS KEY NUMBER PEOiirpFrv 

270ENDPROC 

2B0DEF PP,Oe>™tM*M*m*nt 

290CLS 

306PROC InPut 

3 10 INPUT"" TERM IN YEARS- "term 

320INPUT"" INTEREST RATE-" interest 

330 1 NPIJT " " PR I NC I PAL BORROWED* {"Principal 

340 1 nterest" i nter estx 1 00 

330monthlwP*yment-< !/<<-<< 1/EXP<< LN< .~f **•***■ + 1 )>*term>)-i Vinterest VPrineiPat 

"'12 

?fi0PRINT' ' "MONTHLY PAYMENT-^ " jmonthlsPaywent 

370 i nterest- i nterestfO. 7 

380PR I NT ""MONTHLY PAYMENT UNDER MIRAS-t" t< \/< < -<< l/'EXP^ < LN< interest* 1 >>*term > 

>-l Vinterest VPrinciPal > V12 

390PRINT" "PRESS ANY KEY Tfi dpti IPN TO MENU" 

400e«-CET* 

4 1 AFNDPROC 
420DEF PROCterm 
430CL3 
440PROC input 

430 INPUT"" INTEREST RATE-" interest 

460INPUT"" PRINCIPAL BORR0WE0-£"Pr(nciPal 

470 1 NPIJT"" GROSS MONTHLY PAYMENT- S"montMv Percent 

490interest-intere5t^1«0 

490 term-O .we isf-<t(< interesttPrmciP ?.l VmontM vPswment V12>-1 >)>VLN< interest 

+n 

300PRINT' ' "TERM-" j term 

310PPINT" ""PRESS ANY KEY TO RETURN TO MENU" 

320A»-GET* 

330ENDPROC 

340IF ERR-22 PRINT'" PAYMENT TO LOW" -PRINT" " "PPF«sS ANY KEY TO RETURN TO MENU 

» , fl»-r.PT* . r,mn ?a 

530GOTO 20 



A SIMPLE program to work out 
your monthly payments on a 
Mortgage or, alternatively, the 
term, principal or interest rate. Key-in 
any of those three factors and you will 
be given the fourth. The program will 
also calculate payments under the Gov- 
ernment MIRAS scheme. 
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BEEBUG 



FOR 
THE 



BBC MICRO 



DEVOTED EXCLUSIVELY TO THE BBC MICRO 



MEMBERSHIP NOW EXCEEDS 20,000 
BRITAIN'S LARGEST COMPUTER USER GROUP 

20,000 members can't be wrong — BEEBUG provides the best support for the BBC Micro 
BEEBUG Magazine — NOW 64 PAGES devoted exclusively to the BBC Micro. 

Programs— Hints & Tips — Major Articles — News — Reviews — Commentary. 

PLUS members discount scheme with National Retailers. PLUS members Software Library. 

10 Magazines a year. First issue April 1982. Reprints of all issues available to members. 



SCREEN SHOTS FROM PROGRAMS 
IN BEEBUG 




ILLUSIONS 
OCT 1983 



MUNCHMAN 
OCT '83 



SPIDERS WEB 
AUGUST 1983 




3D SURFACES 
OCTOBER 83 



GIANT SCREEN 
CHARACTERS 
AUGISEPT 1983 




ELIPT0 JUNE 1983 



GIRNT 
TEXT 

Oo you ~ *- ■ « to print tr*t»* <^n> 




Magazine programs now available on cassette to 
members at £3.50 inc: VAT B p&p — see issue for 

details. 



June Issue: Program Features: 'Return of the Diamond' A 16k adventure 
game, 'hedgehog* a well implemented 'frogger' type game, and Ellipto Create 
your own off the shelf sound effects with Sound Wizard. Plus articles on Using 
Files, Rotating and Expanding Characters, Using Printers, and How to 
multi-program the User Keys. Reviews* of The Hobbit Floppy Tape 
System, Adventure Games, and a Comparative Review of Wordwiseand 
View. Plus FX Call Update, Disc Program Auto relocator, Wordwise 
Update, and more BBC Book Reviews, 

July issue: Games: Robot Attack (32k) and Anagrams, a 16k word game. 
Watching the Beeb at work — a sample program to show your micro at work. 
An introduction to discs what are they and are they worth getting. Balloons 
-a coloured animation. Make your micro speak like Kenneth Kendal. Bad 
Program Lister -lists programs even when the computer pronounces them 
'bad'. Reviews of Epson and Seikosha's new printers. Five books of programs 
reviewed, plus more software reviews. Using Files Part 4, A full disc sector editor 
program — to read and retrieve lost disc files, and how to modify Acornsoft's 
Planetoid. Plus hosts of useful hints. 

Aug/Sep Issue: Games: Space Lords (32k) a two player space battle, and 
Mars Lander (16k). Build yourself a light pen a simple explanation for the 
beginner, together with a sample program. Use our "Contact Points for the 
Beeb" to discover who to contact when in need. We show how to put those 
'awkward' cassette programs onto disc. Final instalment of our popular 5 part 
series on "Using Files" REVIEWS of MICRONET, Watfords Electronic's Disc 
Filing System, two EPROM programmers, and the tax advisory package 
"Microtax". This month's visual programs include Spider's Web, Super Large 
Screen Characters, Bounce and Swing. We also show how to hold two 
complete screen pictures at once, and switch rapidly between them in "Dual 
Screens on the Beeb". A Crossword, Brain Teaser and our 4th Software 
Competition provide a competitive edge to this month's magazine. We also have 
our very popular scattering of Hints and Tips. 

October Issue: Games: Munch-Man, a Snapper type game with super 
graphics, Illusions graphics and sound you won't believe. A versatile 
Renumber program for Basic, Fabric Patterns, an invisible Alarm Clock, 
Disc Sector String Search and a program for drawing 3D Surfaces. 
Articles on the Teletext Mode for beginners. Compilers and interpreters, 
using Joysticks, using the Speech Synthesizer and more. Reviews of two 
Cassette Recorders (Marant/ Superscope C190 and Acorn Data Record 
er), three Printers (NEC pc 8023B, STAR DP840 and CP 801, and lots of 
new games software (and we've arranged SPECIAL OFFERS for mem 
bers). Plus a review of the new Acorn Electron and news of our new 
magazine for Electron users called ORBIT. Plus all our usual features like 
Hints and Tips, Postbag, and a new Brainteaser. 

BEEBUGSOFT: BEEBUG SOFTWARE LIBRARY 

offers members a growing range of software from 

£3-50 per cassette. 

BEEBUG NEW OPERATING SYSTEM OFFER 

BEEBUG members can now obtain the new 1-2 OPERATING SYSTEM 

ROM at around HALF PRICE 

Asa result of BEEBUG negotiations with Acorn the ROM now may also be 

offered by other user groups to their members. 



16KJ. 3D Noughts and Crosses (32K). 3. 
16K). 4. Magic Eel (32K). 5. Cylon Attack 



1. Starfire (32K>. 2. Moonlander 

Shape Match (16K). Mindbender 

(32KI. 6. Astro-Tracker (32K). 

Utilities: 1. Disassembler (16K). Redefine H 6K). Mini Text Ed (32K). 

Applications: 1. Superplot (32K). 2. Masterfile|32KK 

13% DISCOUNT TO MEMBERS ON THE EXCELLENT WORDWISE 
WORD PROCESSING PACKAGE-THIS REPRESENTS A SAVING OF 

OVER £5.00. 



Send £1 .00 & SAE for Sample 

Membership: UK £5.40 for six months, £9.90 for one year. 

Overseas one year only: Europe £16.00, Middle East £19.00, Americas & Africa £21 .00, Other Countries £23.00 

Make cheque to BEEBUG and send to: BEEBUGDept 10, PO Box 109 Baker St, High Wycombe, Bucks HP112TD 

Send editorial material to: The Editor, BEEBUG . PO BOX 50, St. Albans, Herts AL1 2AR 
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FOR THE 
ACOR 






Join the Electron User Group 



Members receive 10 copies of the magazine 
ORBIT each year. ORBIT is devoted 
EXCLUSIVELY to the ELECTRON MICRO It is 

packed with News, Reviews, Hints, Tips, 
Programming ideas, Major articles, plus Regular 
program features including games and useful 
utilities. 

ORBIT is produced by BEEBUG Publications 
Ltd., publishers of BEEBUG, the magazine of the 
National User Group for the BBC Micro. 
BEEBUG now has some 20,000 members and 
has achieved a high reputation both in this 
country and abroad. 

The formula which makes BEEBUG an 
invaluable companion for users of the BBC 
micro, will be applied to ORBIT. 

By subscribing to ORBIT you gain all the 
advantages of a single-micro magazine, with no 



space wasted on programs and articles for 
other computers. 



EFITS OF MEMBERSHIP 



ORBIT MAGAZINE 

Ten copies a year mailed free of charge. 

DISCOUNT SCHEME 

Extensive discount scheme with major retailers. 

SOFTWARE LIBRARY 

A growing range of software titles at budget 
prices for members. 

SOFTWARE CLUB 

Substantial discounts on software from major 
software houses. 

LOCAL USER GROUPS 

Lists of local affiliated user groups. 



1. SPACE CITY. Defeat the invading Aliens with your laser, and save 
the city 

2. 3D NOUGHTS AND CROSSES. Pit your wits against the 
ELECTRON on a 4x4x4 board 

3. RACER. Guide your racing car to victory, avoiding other cars and 
obstacles on the track 

4. 3D MAZE. In this challenging game, you must escape from the 
maze - The screen displays a 3D view from inside the maze 

5. PATCHWORK. A multicoloured display of continuously changing 
patterns 

6. KEY SET ROUTINE. A program to set up the user function keys 

7. MEMORY DISPLAY. An efficiently written utility to display the con- 
tents of memory (ROM and RAM) 

8. CHARACTER DEFINER. Define individual graphics characters with 
this useful utility for use in your own programs. 





HOW TO JOIN 

Tp iMppfftja »or of ■ 



SPACE 

CITY 



RACER 



3D MAZE 



r. and oat your FHK CASSETTE, aand CS.90 (payabta to 0**) pfaa • Mrong atomp^ aAlrMwd wnntop* (tor ttw 

ORBIT, PO BOX 50, 8T ALBANS, HERTS 



A* mm* «w MkwMn 



(5 toMMl UK or* €5.t0 - FUEE CASSETTE 0*WH STIU STANDS- 
UK (ona Mff on*y>: Bm and Europa ClS.0a MM* Em Clt.00. 



AMp«C21.00.o«wr 



C23.00 
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IMCL'sifUj.S'i'IM 



20MODE7 

30*FX220.0 

40*KEY10GLDIMname»-" 

50VDU23;8202;0j0;0j 

60FGRZ-1GTO11 'PRrNTTR8< 7.Z >CHR»141 1 "MATHS GAME" 'NEXT 

70FORZ-12TG13'PRINTTRB<6,Z)CHR«141i" " 'NEXT 'PROCURIT -PROC 

WRIT'CLS 

80PRINTTRBC 10, 10)"Ple**e tell me. " 

90INPUTTRB<8, 12)"Whj.t la <our name ? "rumrt 

99*FX220,0 
100CLS<PRINTTRB< 11,10>"(1 )RDD" 
1 10PRINTTRB< 11.11 >'*< 2 )SUBTRRCT" 
120PRINTTRB< 11, 12 >"<3 MULTIPLY" 
130PRINTTRB< 11.13 >"< 4 )DIVIDE" i GOTO 180 
14eCLS<*FX22e.0 

150INPUTTR8O, 16)"Enter Choice* 1-4) "choice 'CLS 
160IF choiee<lORchoice>4CLS'GOTO100 
170INPUTTRB<11,I2)"LEVEL <l-4> ? "L'CLS 
180 IF L<10RL>4CLS' GOTO 170 

190INPUTTRB< 10. 12)"Hou mtrtv question* ? "«u 
200QUESTIONS-0 ' Correct-0 
210CLS 

F-12-G-12 
F-50 ' C-20 
F-100G-30 
F-1000'G-50 



220IF 
230IF 
240 IF 
230IF 



L-l 
L-2 
L-3 
L-4 



nametj " 'TRB<6)" Let'* try thia flueatlon" 'PRGCWRIT'C 



COunt-0 Corr 



THEN 

THEN 

THEN 

THEN 
260PRINTTRB< 12,9>"0.K 
LS'TIHE-0 

270IF cholce-lPROCRDD'GOTO980 

280IF cholce-2PROCminu*'GOTO980 

290IF choice-3PROCtime»-GOTO990 

300 IF choice«4PR0C*h*re'GDT0968 

310REM"****************************" 

320DEFPROCROD 

330FORZ-0TO1 'PRINTTRBC 13. Z )CHRtl41 J "RDDITION" 'NEXT 

348eount"0 

330R-RND<F) 

360B-RNDC F > 

370QUE3T I GNS-QUEST I ONS+ 1 

380FORZ-5TO6 ' PR I NTTRB< 1 . Z >CHR« 1 4 1 1 " Quest l on No . " QUEST I ONS ■ NEXT 

390PROCCHECK 

400 IF QUESTIGNS*<tu*lENDPROC 

410PRINTTRB(9. 13 )CHR«131 jRj " + "jBj" - " 

42BINPUTTRB<22. 13)«nauer 

430IF*n*wer-fl+B VDU7'PRINTTR8<6, 16)"C0RRECTI Well done ";nime«'IF 

ect"Correct*l 

440PROCURIT 

430IF*nauerOR+B GOTOSQg 

460PR1NTTRBC0. 13)" 

470PRINTTRB(0. 16)" 

490GOTO340 

490PROCUPIT 

508IFanat«?r<>R+B THEN count-count+1 ■ IFcount-4 THEN PPINTTRB< 6, 18 V'SORRY. The 

auer Is " i B+B'PRGCUflIT - CLS-GGTO340 

510PRINTTRB<0. 18VUR0NG. You've h*d " j count j" tnlea. Tru Ji*ain" ■ PROCWRTT 'CLS 'GO 

TO410 

S20ENDPROC 

SSOREM"****************************" 

549DEFPR0Cm 1 nus 

550FORZ-0TO 1 - PR I NTTRB< 11,2 )CHR« 141)" SUBTRRCT I ON " ■ NEXT 

569eount-0 

570R-RNIX F ) 

580B«RNIX F > 

590OUEST I GNS-GUEST I ONS+ 1 

6Q0FGRZ-5TO6 PR INTTR8< 9 . 2 )C HR» 1 4 1 1 "Queat i on No . "QUEST I ONS - NEXT 

610PROCCHECK 

620 1 F QUEST I ONS-q u + 1 ENDPROC 

63GIFR<B THEN C-B ELSE C-R 

640IFft<B THEN D-fl ELSE D-B 

650PRINTTRB<9. 13>CHR*131 iC; " _ "jOi" - " 

660INPUTTRB<22. 13)anauer 

678IFanauer*C-0 VDU7 - PRINTTRB<6. 16 V'CORRECT' Well done ";n#me«'IF count-9 

ect-Correct+1 

680PROCWRIT 

698IFan*uer<>C-D GOTO730 

7O0PRINTTRB<0,13)" 



TEST YOUR arithmetic against 
the clock. Maths Game lets you 
choose between adding, subtract- 
ing, multiplying and dividing, and gives 
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you four levels of difficulty for each. 
You will be given the correct answers 
and trying to improve your time will 
make learning seem fun. 




ii 



710PRINTTRB<0, 16>" 

72GGOTO560 

730IFansuerOC-D THEN count-count* 1 ■ IFcou.nt-4 THEN PRINTTRB< 6, 18>"SGRRY. The a 
nswer is- ";C-D'PR0CWflIT'CLSGQT036e 

740PRINTTRBC0, 19 >" WRONG. You' ve had "jcountl". tries. Trw a*a in" 'PROCUHIT ■ CLS' GO 
TQ630 

750ENDPROC 

760REM " **#*****t*»:*:**************** " 

770DEFPROCtimes 

788F0RZ-8T01 'PRINTTBB< 16, Z )CHR«141 > "MULTIPLICATION" 'NEXT 

79Gcount"8 

800R-RND<G> 

810B-RND<G> 

920QUEST I ONS-QUEST I ONS+ 1 

838F0RZ-3TG6 ■ PR INTTRB< 1 . Z >CHR« 141;" Quest ion No . " QUEST I DNS ' NEXT 

840PROCCHECK 

e30IF QUEST I ONS-flu+1 ENDPROC 
960PRINTTRB<9,13)CHR«131jRj" X " iBj " - " 
970 1 NPUTTRS< 22,13 )iwuer 

990IFansuer-ft*6 VDU7 'PRINTTR8< 6, 16VC0RRECT! Wei I don* "jnamet'IF cou.nt-8 Corre 
et-Correct+1 
B90PROCWPIT 

9O0IFanswerOfl*B G0T093G 
910PRINTTRB<0, 13 V 
920PRINTTRBC0, 16)" 
938GOTO790 
940PROCWRIT 

950IFansuerOfl*B THEN count-count* 1 ■ IFcount-4 THEN PRINTTR8< 6, 18 V'SORRY. The an 
suer is "iR*B PROCWflIT'CLS'GiOTO790 

960PRINTTRBC0. 19 )"WRONG. You've had "icounti" tries. Try aOam" 'PROCWRIT -CL3 'GO 
T0969 

970ENDPROC 

980PROCT1ME INPUTTfl8<0, 16>" Rnother game <YxN> '\QU« 

990IF LEFT«<GU8, 1 )-"Y"OR LEFT«< QU«, 1 >-"*"THEN CLS ■ GOTG180ELSE*FX220, 27 
1000*KEY10 
10I0CHRIN"«.MENU" 

lQ2QKEM"**t*tX**XX***t****t**#**X***" 
1 038DEFPROCshare 
1040FaRZ-8TOi'PRINTTRB<:i2,Z>CHR»141 J "DIVISION" -NEXT 

I050fl-RND<G) 

1060B-RNDCO 

1070eount-0 

1 GB0QUEST IONS-QUEST I ONS+ 1 

1 098FORZ-3TO6 i PR I NTTRB< 9 , Z )CHR« 141)" Quest ion No . "QUEST I ONS - NEXT 

1108Z-R*B 

1110PROCCHECK 

1120IF QUEST I ONS-«u+l ENDPROC 

1130PRINTTRB<9,i3)CHR»133;2;" - ";R." - " 

1 1 40 1 NPUTTRB< 22 . 1 3 )ansuer 

1130IFansuer-Z/fl VDU7'PRINTTRB<:e. 16 V'CORRECT I Well done "jname»'IF count-0 Corr 
ect-C'orrect+ 1 

1160PROCWRIT 

1170IFansuierOZ/-fl GOTO1220 

1180PRINTTP,B<0, 13)" 

1198PRINTT8B<0,16)" 

12O0GOTO1030 

1210PROCWRIT 

1220IFansuerOZ/fl THEN count-count* 1 ■ IFcount-4 THEN PRINTTflBt 6. 19 V'SORRY. The in 
suer i* " jZ/fi'PROCWfiIT'CLS'GOTO1030 

1230PRINTTRB<0, 18 >" WRONG. You've had » j count i" tries. Try a9ain" -PROCWRIT - CLS- CO 
TO1130 

1240ENDPROC 

1 230REM "************************»;*** " 

1260DEFPROCWRIT 

1270FORX-1TO309O 'NEXT - ENDPROC 

1280DEFPR0CTIME 

1 290PROC t i ■ T*-T I ME^'60Q0MOD60 - SM-T I ME/ 1 80110060 

1300FOR2-3TO6'PRINTTRB<4.Z>CHR»132iCHP«l41) "TIME TAKEN - "i-NEXT 

1310FOR2-3TO6'PRINTTR8( 10,Z)CHR»14ljTr<" mint "}S'<>" secs"NFXT 

1320ENDPR0C 

1 338DEFPR0C t i VDU23; 1G, 32. Q; 0;0; 'ENDPROC 

1348DEFPR0CCHECK 

1 350 1 F QUEST I ONS-q U + 1 THEN CLS ' FORZ- 1 1 TO 1 2 ■ PR I NTTRB< 7 , 2 >CHP« 141; CHP» I 29 i CHR* 1 36C 
orrecti" RIGHT " ;CHR*130)CHR*137qu-Correct j " WRONG" NEXT ■ ENDPROC 

1369ENDPR0C 



ii 
If 
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WORDSWORTH 




NOW ON 

DISC 

OR 

TAPE 



A BBC WORD-PROCESSOR 

FOR HOME, SCHOOL, COLLEGE OR BUSINESS 

WITH 

BACKGROUND PRINTING ' ON-SCREEN FORMATTING 

" DECIMAL TAB WITH AUTOMATIC TOTALLING ' 

- DEFINABLE PRINTER CONTROL CODES ' 

Print 500 labels, personalise 500 letters, or print 200.000 

characters at one command - with up to 9999 copies of 

everything. Or use it without a printer for your address 

lists, appointments diary, indexes etc. 

IT MUST BE 

WORDSWORTH 

TAPE £17.25. DISC (40 OR 80 TRACK) £19.50 
FROM YOUR DEALER, OR DIRECT FROM 

IAN COPESTAKE 

Dept. W1 1 , 23 Connaught crescent, Brookwood, WOKING. 
Surrey, GU24 0AN Tel. 048 67 Brookwood 4755 

Goods despatched by return Printing service available 



micro - Aid 

SUPERIOR SOFTWARE 
FOR THE BBC MICRO 

SPELL-CHECK £17,95 



MEMO-CRLC £9 
CHSHBOOK £7 
LEDGER £7 

MAILING £7 
PHVROLL £17 
STflTPflCK £9 
FRENCH BBROflD £ 
GERMAN ABROAD £ 
UTILITV-fl" £5 



7 
7 



95 

95 

9 5i 

95 

95 

95 

.95 

.95 

95 



*<i«l UA1 
Send 



P o «► t *»*j«- i no 

for FREE Bra 



oc 



hure 



^*t££fti 



, M 



■a > *r sr 



tft,^;* 



25 Fore street, 

Praze-an-Beeble, 

Camborne, 

Cornwall. TR14 0JX. England. 



Tel: (0209) 831274 



THE COMPUTER USERS CLUB 

69 HADLOW ROAD, 

WELLING, 

KENT. 

DAI 6 1AX. 

TEL: 01-311 2555 



At our Hadlow Road premises we stock a complete range of accessories for the BBC micro including 
monitors, printers, plotters, cassette recorders and a wide selection of disc drives and other peripherals 
from leads to dust covers at very competitive prices. This service is provided to compliment the facilities 
provided by the Computer Users Club and both members and the general public are always assured of a 
warm welcome and helpful assistance. Obviously some of our present and hopefully future members and 
clients live some distance from us so we have available a mail order service. Postal/telephone, assistance, 
ordering and sales is available worldwide. 

Our software available on both tape and disc comprises a wide selection from games to business 
programs. We currently have available Torch Z80 Disc Packs complete with a free comprehensive 
software package comprising Perfect Calc:- Spread sheet analysis. Perfect Writer and Perfect Speller:- A 
word processing with a spelling checker facility. Perfect Filer:- A database package. To compliment this a 
utilities disc, a complete package in its own right is included. The Disc Pack transforms the BBC Computer 
into a competitive business machine providing a total storage capacity of 800k on dual drives and the 
facility to run CP/M business software through the built in compatible CP/N Operating System making it a 
very worthwhile package at £730 + VAT. This package can be seen connected to the BBC Computer and 
demonstrated with the other systems currently available an open invitation without obligation is extended 
to all and we look forward to seeing you at our Hadlow Road premises in the very near future. 
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BOOK SEARCH 



YOU KNOW the author and title 
of a book but you do not know 
which shelf it is on. Or you know 
the location and the title but you cannot 
remember the name of the author. 
Book Search will search for and sup- 
ply the missing factor. It can keep track 
of 170 books, for which you enter the 
relevant details according to your needs. 
You can also use it for cassettes, video 
tapes or any other filed material. 



40PRINT' 
50VDU131, 141! 
60VDUi31«141J 



PRINTTflB< 12); "BfjOK LIST" 
PRINTTAB< 12 >; "BOOK LIST" 



;TA8O0>; "LOCATION" 



INSTRUCTIONS" 
THEN PRGCELP 



i 



70 PRINT"TITLE";TAB<15>J "AUTHOR' 
80PRINTCHR»< 134)jSTRING»< 19, "*+" > 
90PRINT 

100 INPUT "DO YOU WANT INSTRUCTIONS" ,G« 

110IF LEFTtCOt-l^-Y' 

120VDU26,0,24,39,7 

130VDU14 

140 REPEAT 

150 READ T* 

160 READ A«,L« 

170 PRINTT»,TAB< 14); A»)TRBO0 >;L« 

180UNTIL T«-"END" 

190 RESTORE 

200 PRINT" "WHAT SHALL I SEARCH FOR' 

AUTHOR<A), TITLE<T), OR LOCATION* L )?" 

210 INPUT A« 

220 IP A«-"L" THEN 410 

230 IF A*- "A" THEN 338 

240 PR I NT "ENTER THE TITLE TO SEARCH FOR " 

258 INPUT X» 

260CLS 

270 PRINT 

280REPEAT 

290READ T«,A«,L» 

300 IF T«-X» THEN PRINTT»;TAB< 14 )jA»j TABOO );L« 

310UNTIL Tt-"END" 

320GOTO190 

330 PR I NT" ENTER THE AUTHOR TO SEARCH FOR" 

340 INPUT X» 



350CLS 

360REPEAT 

370READ T«,A«,L« 

380 IF A«-X« THEN PR I NTT* j TAB< 14 )i A«j TAB< 30 >;L« 

390UNTIL T«-"END" 

400 GOTO 190 

410PRINT"ENTER THE LOCATION TO SEARCH FOR" 

420 INPUT X« 

430CLS 

440REPEAT 

430READ T*,A«,L* 

460 IF L«-X* THEN PRINTT«jTAB< 14 >;A»; TABOO >;Lt 

470UNTIL T«-"END" 

480GOTO190 

490 REM "**** DATA ENTRIES **** 

DATA 39H0UR BASIC, PR I GMORE, SHELF 3 
DATA USER GUIDE, J. COLL, SHELF 2 
DATA DICTIONARY, COLLINS, SHELF 2 
DATA MURDER, HUGH DUNN IT, SHELF 1 



508 
510 
520 
530 



1 



540DATR BAD SPELLING, TERRY BULL, SHELF 

55Q DATA FOOT COMPLAINTS, IVOR BUNYON, SHELF 1 

560DATA FALLEN, LUCY LASTIC, SHELF 2 

570 DATA SEWING, FRED NEEDLES, SHELF 4 

580DATA END, END, END 

599DEFPR0CELP 

60QPRINT"DATA IS ENTERED AS. PROGRAM" 

610PRINT"LINES IN THE FORM OF TITLE, AUTHOR, 

620PRINT"SHELF. " 

638PRINT"USE LINES 820 

649 INPUT "ARE YOU READY 1 

650ENDPROC 



TO 990." 
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> LIS '«0DE7 

10 CLR-0<TI-0'C9-0'U-0 

1 1 BR- 1 34 ' F0- 1 29 ■ PROCCOLSCREEN 

20 REM 

22VDUBR, 137, FO- 141 PRINTTRBO, 9 >"" 

23VDUBfi,157,F0,141 'PRINTTRBC9, 10)"M 

24VDUBR,137,F0, 141 -PRINTTABO, 11 )"M 

23VDUBR, 157,F0<PRINTTRB<9- 12)"-— « 

33F0R I - 1 TO5000 i NEXT 

40BR- 1 34 ' FO- 1 32 • PROCCOLSCREEN 

70VDUBR, 157,F0'PRINTTRB< 15. 1 >"SET UP 

75VDUBA,157,F0'PRINTTAB< 13,2V'-- — — ■- 

80VDUBR,157,FO'PRINTTAB<3,5)j ' INPUT"HOU 

C9-0THENPRINT" "J-COTO80 



A 



'5 

a 



T 

T 



E 
E 



R 

R 



M 

M 



N 
N 



D" 
0" 



B0RR0" 



MANY COLOURS <8 ? "C9« • C9-VAL< C9« ) • IF 



90 

93 

100 

101 

102 



IFC9>BTHENVDUBfl, I37,F0-PRINTTA8< 3, 7 )"NQ MORE THAN 9 PLER3E I " ' COTO90 

I FC9< 2THENVDUBR , 1 37 , FO - PR I NTTAB< 3,7)" 3TUP 1 D I " - COTOB0 

VDUBA, 157,FQ<PR1NTTAB<3,7)j 'INPUT"H0W MANY POSITIONS ? " P9« - P9-VRL< P9« ) 



IFP9-0THENPRINT 1 



GOTO 100 



IFP9<2THENPRINT"STUPID("- GOTO 100 



110VDUBfl,157,FO-PRINTTRB<3,9)j < INPUT"H0U MANY ROUNDS 

j 'GOTO110 



7 *'R9t'R9-VRLCR9») 



112 IFR9-0THENPRINT" 
120 P-C9 A P9 

125VDUBR, 137,F0'PRINTTA8<S.ll >"N0. OF POSSIBILITIES "P 

138VDUBR, 137,F0'PRINTTRB< 16, 13>"H0W TO PLRY" i VDUBfl, 157, F0'PRINTTRB< 3, 15 )"Y0U C 
ET A 'BULL' WHEN CORRECT COLOUR" 

131 VDUBfl. 157,F0'PRINTTRB< 3, 13)" YOU GET A 'BULL' WHEN CORRECT COLOUR" 
132VDUBR, 157,F0'PRINTTAB<3,1S)"I8 IN CORRECT P08ITIQN" 
133VDU8A, 157.F0'PRINTTRBO-17)"Y0U GET A 'COW WHEN CORRECT COLOUR" 
134VDUBR, 137,F0'PRINTTRB<3, 18)"IS IN THE URONG POSITION" 
136VDUBR, 137,F0<PRINTTRB<3,23)"PRESS SPACE BAR WHEN READY" 
138X«-GET«' IF X«<>" "G0T0138 
140 H-8'C-0 

138 DIMQ<8),S< 1G,2).R«<8),G«<:8), KP),H«<8),S«< 10) 
151 FOR1-0TOP9'G< I )-0'NEXTI 
160 L«-"BWRGOYPT" 
1 65BR- 1 35 - FO- 1 29 • PROCCOLSCREEN 
170VDUBR, 137, FO <PRINTTR8< 5, 1 ); 
190 PRINT" COLOUR LETTER TRIES B C" 

200VDUBR, 157,F0-PRXNTTRB<3,2>J " — — •-••-- — — — " 

210 F0RX-1T0C9'RERDX« 'VDUBfl, 157, FO'PRINTTAB< 3, 3+X>" "jX»jTRB< 15 )jfirD«< L»,X, 1 > 
■NEXT 

260FORR-1TOR9 ' VOUBR, 137, FO < PRINTTR8C 5, 5+C9 >"ROUND £" l R 
308VDUBR, 137,F0'PRINTTflB<5,7+C9)"GUE86 MY COMBINATION!" 
310VDUBA, 157,F0-PRINTTR8<5,8+C9)"0PTI0N3'- '-' , 'QUIT'" 
320 A9-P*RND< 1 )+l -R-INKR9) 

325VDUBA,157,F0'PRINTTAB<5, 10+C9 V'PLEASE WAIT - SETTING UP GAME" -FORI-1TO2080 • 
NEXT 

GOSUB3G00 

FORX- 1 TOA > COSU83500 - NEXT 

FQRM-1TQ10 



PRINTTR8<3, 19+C9>"M0VE £"/Hi" GUESS ? 



; 'GOTD390 



330 
340 
370 

380 VDUBA,137,F0 
B<21, 10+C9)"" X« 

382 IFX»-"-"THENPRINT' 

390 IFX*-"BORRD"COTO2000 

400 IFX«-"QUIT"GOTO2500 

410 IF LEN<X«)-P9 GOTO 420 

415VDUBA, 157,F0'PRINTTAB<3)"THERE ARE " jP9j" POSITIONS) 

420REM 

430 F0RX-1T0P9 

440 F0RY-1T0C9 

450 IFMID«< X«,X, 1)-MID»<L«,Y, 1 )G0T0488 

460 NEXTY 

478VDUBR, 137,F0' PRINTTAB< 3 )"" . MID«< X»,X. 1 )i 

498 C»(X)-MID«<X»,X, 1 > 

490 NEXTX 

300 REM**CONVERT QC1-P9VT0 fi*<l-P9> 

310 GOSUB4000 

520 REM***GET £ OF BWd'S 

539 GOSUB4500 

540 IF B-P9 GOTO 630 
550 REM**RESULTS 

555VDUBR, 157,F0'PRINTTRB<27,2+M)X«; " "8i" "W ' PRINTTAB< 5, 11+C9) 



i - INPUTTR 



GOT 0380 



IS UNRECOGNIZED" 'G0T038G 



560 
570 

590 
390 
600 
610 



VDUBfl, 157,F0'PRINTTflB<2>"Y0U HAVE "jBj" BULLS ft, "iW;" COWS" 
REM#*SflVE FOR BOARD LAYOUT 



S*C M >*X« 

S<M, 1 )-B 

S<M,2>»W 

NEXTM 

620VDUBA, 157,F0-PRINTTABC5)"DUMMY YOU'VE RUN OUT OF MOVES' "■ GOTO640 
622 GOSUB4000 

623VDU8R, 137,F0 - PRINTTRB< 5 )"THE C0M8INRTI0N WAS--- "i 
624 FORX- 1 TOPS" VDUBR, 157,F0 -PRINTA«<X ); NEXT'PRINT 



630VDUBR, 157, FO- 

640 H-H+M 

650 GO8UB5O00 

660 REM 

670 REM***COMPS GO 

680 REM 

690 FORX- 1 TOP' I<X>-1 



PRINTTRB<5)"Y0U GUESSED IT IN "iMj" MOVES I 



NEXT 





YET ANOTHER imitation of that 
old favourite, Mastermind, Bull 
and Cow is a fairly simple ver- 
sion, with scarcely any graphics, but 
you can choose the number of colours 
and positions in the combination you 



44 



ACORN PROGRAMS December 1983/Jatiuary 1984 




have to guess and how many rounds you 
want to play. 

The computer gives you a bull for the 
correct colour in the proper place, a cow 
for the proper colour in the incorrect 
place. 



728 
730 
732 
735 
748 
730 
760 
770 
788 
790 
800 
810 
820 
830 
848 
850 
951 



VDUBA, 157, FO<PRINT"NOW I GUESS THINK 

VDUBA , 1 57 , FO - PR I NTT ABC 5 , 23 ) " PRESS SPACE 
X««GETt*IF X«<>" "G0T0732 



OF A COMBINATION" 
BAR WHEN READY" 



FORM- I TO 10 

GOSUB3000 

REM**FIND fl GUES9 

A8-P*RND< 1 )+ 1 • G- 1 NT< A8 ) 

IFKO-1GOTO890 

FOR X-G TO P 

IFUX)-1GOTO880 

NEXT 

FORX-1TOG 

IFICX)-lGOTOe80 

NEXT 

VDUBA, 137, FO-PRINT"YOU DUMMY, YOU'VE GIVEN ME" 

VDUBA , 1 57 , FO ■ PR I NT " I NCONS I STENT I NFORM AT I ON " 
860VDUBA, 157,F0'PRINT"LET'3 TRY AGAIN" 
862VDUBA, 157,F0-PRINT"fl< THIS TIME BE MORE CAREFUL!" 
970 GOTO660 
880 G-X 

990 REM**CONVERT CUE9S£G TO Cf 
988 FORX-1 TOG ' GOSUB3500 • NEXT 
938 GOSUB6O00 

935BA- I 29 ■ FO- 1 33 ■ PROCCOLSCREEN 

936VDUBA , 1 57 , FO ' PR I NTTA8< 14,3)" COMPUTER ' S TURN ■ 
938VDUBA, 157, FO' PR1NTTAB< 14,4 )"«———— --" 
940VDUBA, 137.F0<PRINTTAB<3,7)"MY GUESS IS'™ "j 
950 FORX- 1 TOPS - PR I NTH«< X > ; ■ NEXT ■ PR I NT 

980VDUBA, 137,F0'PRINTTAB<:3,9>) ' INPUT"BULLS ? "Bl« 

981 IFB1«-"0"TMEN81-VAL< Bl* > ' G0T0985 

992 B1-VALCB1*)' IFB1-0THEN980 

983 IF B1-P9 THEN 990 

985VDUBA, 157,F0'PRINTTAB< 5, 11); • INPUT"C0US 



986 IFW1«<-P9«THENW1-VAL(W1») 
INKING" 'GOTQ990 



? "HIS 

VDUBA. 157, F0'PRINTTAB(5, 13)"PLEASE WAIT - I'M TH 



987 
990 
1000 
1810 
1035 
1070 
1080 



W 1 -V AL< W 1 • ) ■ 1 FU 1 -0THEN995 

IF B1-P9 G0T01128 

GOSUB30G0 

FORX- 1 TOP i GOSUB3500 ■ I F K X >-0GOTO 1 8 70 

GOSU865O0 i GOSUB4000 i GOSUB4580 'IF B 1 OB 

NEXT 



OR UtOU THEN I< X >-B 



NEXTM 
1090VDUBA, 157, FO 
t 108 VDUBA, 157, FO 
1110 G0T01130 
1120VDUBA, 157, FO 
1138 C-C+M 
1140 GOSUB5000 
1145VDUBA, 157. FO 



PRINTTAB<5)"1 
PRINTTAB<5V'I 



'VE USED UP ALL MY MOVES!!" 
GUESS MY CPU IS HAVING AN OFF DAY 1 



PRINTTAB<5)"I GOT IT IN ";M;" MOVES" 



PRINTTAB<5,23)"PRESS SPACE BAR WHEN READY" 



1 



DRAW" 'G0T01198 
WON I I " 
AGAIN Y/N ?' 



I 1462»-GET«' IFZ«<>" "THEN 1146 
1 1 47BA- 1 33 i FO- 1 29 ■ PROCCOLSCREEN 
1158 NEXTR 
1 1 55B A- 1 34 ' FO- 1 29 ■ PROCCOLSCREEN 
1160VDUBA, 157,F0'PRINTTAB< 10,9)"GAME OVER" 
1 178VDUBR, 157,F0'PRINTTRB<:7, 10)"FINAL SCORE--" 

1180 GOSUB5040' IFC<H THEN VDUBA, 157.F0- PRINTTAB<4, 14 >" I BEAT YOU, BETTER LUCK N 
EXT TIME" -GOTO 11 90 
1183IFC-H THEN VDUBA, 157, FO ' PRINTTAB< 4, 14 )" ITS A 
1185VDUBA,157,F0<PRINTTA8<4, 14 V'CONGRRTULATIONS. YOU 

1190 VDUBA, 157, FO' PRINTTAB< 4,23 )"D0 YOU WANT TO PLAY 

11912*-GET*' IFZ*<>"N"ANDZ«<>"Y"THEN1191 

1192IF Z*-"Y" THEN CLEAR-G0T040 

1193 VDUBA, 157,F0'PRINTTAB(2,23)'CLS'END 

2800 REM 

2810 REM**80ARD PRINTOUT 

2015PROCCLRBOT 

2020 REM 

2030 VDUBA, 157, FO ' PRINTTABC 3, 1B)"M0VE GUESS BULLS 

2850 FORZ-tTOM-1 'VDUBA, 157, FO' PRINT" "j2j" "iS«(Z);" 

"jS<Z,2) 

2075 NEXT 'PRINT 

2080 GOTO380 

2300 REM 

2510 REM**QUIT ROUTINE 

2320 REM 

2325PR0CCLRB0T 

2338 VDUBA, 157, FO < PRINTTABC 5, 18 )"QUITTER! MY COMBINATION 



COWS' 



;9<Z, 1 >t 



WAS 



-" GOSUB4008 



2340VDUBA, 157, FO i PRINTTAB<5, 20)"" J 'F0RX-1T0P9 >PRINTA»< X >> -NEXT 'PRINT 
2S70VDUBA,137,FO'PRINTTAB<2)"BETTER LUCK NEXT TIME I " ' FORI-1 TQ3000 ■ NEXT ■ G0TO1 190 



3800 


REM 




3010 


R£M***INITIALIZE GK1-P9) 


3020 


REM 




3030 


FORS-lTOP9'G(S>-0 


■NEXT 


3060 


RETURN 




3500 


REM 




3318 


REM** I NCREMENT QC 1 -P9 ) 


3528 


REM 




3522 


IFO< 1 )>0GOTO353Q 





TQ O'S 
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3524 REM**IF 0-THIS IS FIRST INCR-MRKE RLL l'S 

3*526 FQRS«1T0P9-Q<S>»1'NEXT 

3529 RETURN 

3530 Q-l 

3540 0<Q>-0CQ>+1 

3550IFQ<GXC9+1THEN RETURN 

3560 GCQW 

3570 G-G+l 

3560 GOTG3540 

4000 REM 

4010 REM**CONVERT Q< l-P9>T0fl»< 1--P9 > 

4020 REM 

4030 FORS- 1 T0P9 ' fl*< S >-M I D»< Lt , Q< S ) , 1 > ' NEXT3 

4060 RETURN 

4500 REM 

4510 REM**GET£ OF B&U'S 

4520 REM**MflSHES G« & R* IN THE PROCES'3 

4530 REM 

4540 B-0 W-0F-0 

4530 FORS- 1 T0P9 - I FG«< S X >fl»< S >GOTO4620 

4570 B-B+ 1 - G*< S )-CHR»< F > i R*< 3 >-CHR«K F+ 1 > - F-F+2 

4610 G0T0466Q 

4620 F0RT-1T0P9' IFCf»< 9 X >fl»< T >GOTO4650 

4640 I FG«< T >-fl»< T )GOTO4650 

4645 W-W+ 1 i fl»< T )-CHR«< F ) • G«< S >-CHR»< F+ 1 > ■ F-F+2 ' GOTQ4660 

4650 NEXTT 

4660 NEXTS 

4670 RETURN 

5000 REM 

5010 REM** PRINT SCORE 

3020 REM 

5030 VDUBfl* 157,F0'PRINTTRB<5>"SC0RE'- 

5040 VDUBfl, 157, F0'PRINTTRB<5>"C0MPUTER "jC 

5050VDUBR, l57,F0'PRINTTfi8<5>"HUMflN "jHj" " 

5070 RETURN 

5500 REM 

5510 REM**CONVERT QO-P9) TO &K1-P9) 

5520 REM 

5530 F0R3-1T0P9'G»<:S>«MIC'»<:L«.G(S>, 1 >'NEXT 

5560 RETURN 

6O00 REM 

6010 REM**CONVERT Q<I-P9> TO H*< 1-P9) 

6020 REM 

6030 FORS-1TOP9 > H«< S >-MID»< L«, G< S ), 1 > • NEXT 

6060 RETURN 

6300 REM 

6310 REM**COPY H* TO G* 

6520 REM 

6530 FGRS- 1 T0P9 ■ G*< S >-H»< S > ■ NEXT 

6560 RETURN 

60 1 DflTRBLflCK , WH I TE , RED , GREEN , ORANGE > YELOW , PURPLE , TRN 

9999 END 
1 0000DEFPROCCOLSCREEN 
100 10CLS' FORI -1T025 
1 0020VDUBR , 1 57 , FO • PR I NT " " 
1 0030NEXT i PR I NTTRB< , > 
10040ENDPROC 

1 1 000DEFPROCCLRBOT ■ PR I NTTflB< 0,18:-' FOR I - 1 T05 ' VDUBfl . 1 57 , FO - PR I NT " " ' NEXT 
U010ENDPROC 
11Q20 REM THE END 
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Now you can take a new 



AMERICAN look at your Sinclair! 

iw Timex Sinclair User magazine to link YOU into a 
huge network of American enthusiasts 



Published monthly since May, 
Timex Sinclair User has taken 
the States by storm. It is 
packed full of news, reviews, 
programs and user information 
. . . linking you into the vast 
Timex Sinclair User network. 



Remember, this is a new 
magazine written from the 
American viewpoint but it 
could open up whole new 
horizons for you on your 
Sinclair enjoyment. Take the 
new American view by 
ordering right away and see 
how the U.S.A. welcomed the 
Sinclair! 



Send to: TIMEX SINCLAIR USER, ECC Publications Ltd., | 
196-200 Balls Pond Road, London IM1 4AQ | 

Yes, I want to subscribe to TIMEX SINCLAIR USER at the I 
special U.K. rate of £20 for 1 2 issues delivered to my door. I 

Name ■ J 



Address 



I enclose a cheque P.O. for £ 

Please charge my credit card 

Card Name Card Number 




I 
I 

I 
I 
I 
I 

I 



Signature. 



Date. 



j 



N.B. This offer applies to UK subscribers only. Overseas rates available on request 



N.B. Subscribers to Sinclair Programs or Sinclair Projects should be aware that Timex 
Sinclair User will occasionally reproduce top articles that have appeared in our U.K. 
magazines. 



The success of the Sinclair ZX80, ZX81 and 
Spectrum in the U.K. has been phenomenal. But in 
the States the Sinclair has been given a real 
American welcome making the Sinclair range the 
biggest seller in the world! The American ZX81 
equivalent: "The Timex Sinclair 1000" from the 
giant Timex organisation, has been bought by 
hundreds of thousands of enthusiasts. 

The success of 'Sinclair User' magazine in the U.K. 
followed a similar pattern so now we have 
matched the U.S.A. enthusiasm with a brand new 
U.S.A. magazine — the Timex Sinclair User! 

Annual subscription rate is £20. Single copes are 
£2 (including P & P). 



Fill in the order form 
NOW to discover the 
American way of 
computing! 




Second 
Sinclair User 

Annual 

The most up-to-date guide to the world of Sinclair computers 

Full reviews of all g Make sure you do not miss your copy. 

the top software, _ p|ace an Qrder ^ 

complete Basic ■ 

programming I To Sinclair User, ECC Publications, 198 200 Balls Pond Road. 

course latest _ 

round-up of H Name — ' enclose a cheque for £ 

peripherals, | Address Signed 

masses of the best _ 

program listings ■ 

and much more 
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THE GOOD 

COMPUTING 
BOOK FOR 

BEGINNERS 

M.US a comptete practical tfmm y o* t er mi 
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■ 

If you only buy ONE 
computing book 



T 



Mfc 




An entertaining, but thorough reference source 
with the most readable, comprehensive glossary 
you'll find anywhere. The Good Computing Book 
for Beginners is an essential A-Z of all the facts you 
need to know about computing — and none you 

don't! 



Whether you're brand new to computing, or an old 
hand keen to stay ahead, you'll score by keeping this 



again. 

The author, Dennis Jarrett, is a successful journalist 

who was also founder editor of Which Computer? 

magazine — so his first edition quickly became a 

standard work. Now this new, substantially 

enlarged and revised edition covers the latest 

trends, terms and technology with the relevant facts 

- and ONLY the relevant facts — in plain English. 

Here's another fact you'll find fascinating: it will only 

cost you £2.95! 

Use the coupon below to get your copy right away 
— or buy it soon from your bookshop. It's the one 

book you'll turn to again and again. 
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A world of activity for you 
and your Sinclair 




Whether you have a ZX80, ZX81 or Spectrum — we can show you 

there's far more to your Sinclair than you ever thought possible. 

That's the active, lively world of Sinclair User — the first magazine 

written specially for everyone who owns or uses a Sinclair 

computer. 

Every month, there is a whole range of games, business ideas and 

bright new ways to learn. There is the Sinclair User Club, with 

special exclusive member offers. There are technical facts, 

development news and advice, plus hints from other users and 

answers to queries — in fact everything you need to be an 

interested, informed and ACTIVE Sinclair user. 

There's just one problem — Sinclair User sells out fast! So make 

sure you don't miss your copy: order it today from your 

newsagent — or complete the subscription ^ 

form below and we will .—- *"■" ' 



send it to you direct, every month. 
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Colour Graphics Printer 




CGP-115. Creates beautiful graphics in red, blue, 
green and black. Text mode prints 40 or 80 
characters per line at 12 characters per second. 
Includes serial and parallel interfaces and easily 
replaceable ink cartridges and standard 4 1 /2" paper 
rolls 26-1192 £149.00 
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The Biggest 
Name in Little 
Computers 



See Our Extensive Range of Microcomputer Accessories 
At Any One of the 340 Tandy Stores Nationwide! 
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MAILORDER PROTECTION SCHEME 

Advertisements in this magazine are required to conform to 
the British Code of Advertising Practice. In respect of mail 
order advertisements where money is sought in advance of 
the despatch of goods the Code requires the advertiser to 
despatch goods within 28 days, unless a longer period is 
stated. Where goods are returned to an advertiser, unda- 
maged, within 7 days, the purchaser's money must be 
refunded, plus the cost of returning the goods. The reader 
should retain evidence of despatch. 

If you order goods from mail order advertisements in this 
magazine and pay in advance of delivery you will be 
considered for compensation under the Scheme if the 
advertiser becomes insolvent or ceases to trade provided 
that: 

(a) you have not received the goods, or a refund in 
respect of returning same, AND: 

(b) you write to the Advertisement Manager of this 
magazine, stating the facts, not earlier than 28 days from 
the date of the order and NOT LATER THAN THREE 
MONTHS from the date on which the advertisement ap- 
peared. 

THE SCHEME ONLY COVERS ADVANCE PAYMENT SENT 
IN DIRECT RESPONSE TO AN ADVERTISEMENT IN THIS 
MAGAZINE. IT DOES NOT COVER: 

(a) Classified advertising; 

(b) payment made in response to catalogues, brochures, 
etc. received as a result of responding to such adver- 
tisements; 

(cl advertisers offering services as opposed to goods, 
<d) claims where payment is made with Access or 
Barclaycard and where the cost of the goods is over 
£30. In this case claims should be made to the Credit 
Card Company concerned. 
Full details of the Scheme are available by sending a 
stamped and addressed envelope to Mail Order Protection 
Scheme, Newspaper Publishers Association Limited, 6 
Bouverie Street, London EC4Y 8AY. 
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NOW FLY THE CASSETTE!! 



ONLY £8.95 including VAT & P&P 

JOYSTICK control option in 

4 Program packagel 



Available at leading Dealers 
Direct mail order 
• MicronetdOOt 




FLIGHT 

ALL OPERATING 0*.i\ / / < J / I SIMULATOR 

SYSTEMS l — J LJ (-J H BRIEFING 

A full blown, pilot written simulation (writer of the famous Atom 747) real time instrument and visual display. 3D runway view (Heathrow or 
Gatwick). large dials, moving pointers plus digital readout. Demonstration approach and landing. Full, separate briefing program. Area chart, 
notes and flight plan. Outside view of runway/horizon/Nav points, banks and pitches with realistic motion. Fantastic! 



SPEECH ROM? TABLES TEACHER! The Doc speaks! Learn multiplication 

in several different interesting and colourful ways. (Runs OK without S.R. but 

DOC is silent). Suitable for all ages. 

KREMLIN multi level maze escape with Gremlins/ bomb '3D graphics and 

sound map compass/quiet explore option! 

HARMONY: infinite, saveable, 3D patterns of colour and sound, menu driven. 

WORD PERFECT friendly and versatile, full facility 40/80 

column word processor (cassette and disk versions) 



A new concept, -a neW'CIfcsic 




Wolfpack III 

BBC 32K. all operating systems 

Combat briefing and program 

'WtipIihwskwi fHM*d™ig*Wtont»ra|ilsiuiHD» btaHI SNA**( t«Mn 
brtontl wmetiffies lt»*v rtMict^i** clOV *l *mncl Too Jir fethtl 

I rut ** «**»** * imUlNa ™non jiTU/mg tultroiOui Staf f **l 4j1.1t Hn 1 *t 

VNjir'1 Mu«i**sn*>inni*cn Kftrttfq>tiMrtOwr*ifKfm«iddcftl*ty 4 
lWno<«nritiv n*i«x«r*n Gowl4»<Hinjvtf^**Vi1liv««qv '* pM 
moUOn Pont turntMi I t a m dgd l» rteith 1 ibul r^ue ftWl iiosvbH" 



ROYALTIES 



DOC PAYS THE BEST FOR THE BEST' 



DOCTOR SOFT 

ADVANCED SOFTWARE 



All prices include VAT & P&P 
Cheque or PO to: "Doctor Soft", 258 Coneygree Road. 

Peterborough PE2 8LR 

copies of 747 @ 18 95' 

. copies ol Wollpacfc E7.95 

copies ot Tables Teacher C7.95 

copies of Kremlin £6.95 

copies of Harmony C6 95 

copies of Wotd Petleci C9.95* 

TOTAL f 



'Please add f3.00 (or disc versions 

Name 

Addr 



AU2 



DEVON 



COMPUTERLAND 

(A & D COMPUTERS) 

BBC Micros. Disc Drives. Printers. 

Cumana Drives. Microvitec Monitors 

Software by Acorn. Gemini. Program 

Power Bugbyte Software lor all etc 

6 City Arcade, Fore Street, Exeter. 

TEL: 77117 



ESSEX 



ESTUARY HOME 
COMPUTER CENTRE 

Estuary Software Products now have 
BBC's in stock together with a wide range 

of software and accessories. 
261 Victoria Ave.. Southend-on-Sea. 
Credit Card Holders may phone __ 
their orders (0702) 43558 EU 



HERTFORDSHIRE 



STEVENAGE 

Computers for home and business. 

• Disc Drive/Upgrades • Printers • 

Monitors • Business Packages • Games 

• Service Contracts • 



Q-TEK SYSTEMS 

• 119 High St. 
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Tel: 0433 60011 



HUMBERSIDE 



Everything for the BBC 

Microcomputer — Your local 

dealer 

MICROSERVE (HUMBERSIDE) LTD 

39 Oswald Road, Scunthorpe, 

South Humberside DM15 7PN 

Tel: 0724 849696 

SPECIALISTS IN MICROCOMPUTER NETWORKS 



LEICESTERSHIRE 



D. A. COMPUTERS LTD. 

Official BBC dealer and service centre Every- 
Ihmg you require for the BBC computer mc 
Epson Printers. Selection of Disc Drives. PL 
Digitiser. Colour and Monochrone Monitors Full 
range of games sollware and books 

104 LONDON ROAD, LEICESTER. 
TEL: (0533) 549407 



SUFFOLK 



Suffolk Computer Centre 

BBC Mictocornpuler Service & Information Centre 

Microcomputers • Disc Drives • Monitors 

Matrix & Daisywheel Printers • Joyslicks 

Cassettes • Light Pens • Graphics Tablet 

Books & Software 

3 Garland St., Bury SI Edmunds. 
Telephone: 0284 - 705503 

Open Mon - Sat 9 - 5 30 



SURREY 



THE COMPUTER SHOP 

J. S. Slmnell Computers Ltd.. official BBC 

dealer and service cenire Everything for the 
BBC and Torch Computers plus peripherals 

91 Acre Road, Kingston-on-Thames, 
Surrey Tel: 01-546 3793 

ACCESS/BARCLAYCARD WELCOME 



ORDER COUPON 

3 ISSUES OF 
ADVERTISING 
FOR ONLY £30 
3 FOR 2 OFFER 



PLEASE PLACE A BOX 
IN YOUR DEALER 
ACORN PROGRAMS 

NAME 

ADDRESS 



CHEQUE'PO ENCLOSED FOR £30. 
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Zooming into touchdown at WH5mith5, John Menzies and other good newsagents now 

and every fortnight . . . only 40p. 

Order your copy TODAY! 

Bursting with great new comic strips . . . exciting stories . . . astounding facts . . . 

big prizes . . . competitions . . . fascinating quizzes . . . star personalities. 

And that'sjust the start of Britain's newest brightest, most fun-packed comic ever! 

LOAD RUttNER 

It's the only comic for the age of the computer - 
it puts the rest b ack with the dinosaurs! i 
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and every fortnight . . . order your copy TODAY 
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latest version incorpo 
facilities, including the ab 
Change the board and piece colour93 
Replay a game, move by move. 
Change levels whilst playing. 

Ask the compute*to suggest a move. 

Force the computer to make a move at 

anytime. 

Save a game on tape or disc. 

Blitz play within a time limit. 

Mate in 2, 3 or 4 moves. ^ 

Castle and en passant. 

Quite simply the best chess game 

able for the BBC Micro. 
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New Release . . . 
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from the same author as out best 
selling Chess program this I game 
incorporates many of the featurelof that 
program — various skill levels.jj 

game to tape, replay a stored gai 

etc. A high resolution colourdisB 
user may change the colours* 
option to choose the rules of play make 
this game extremely flexible. / 

Works with all Operating Systems. 

Only / 

£8.95 including VAT, postage & packing. 
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CASH OR ROYALTIES We specianso m quality software 
lor the BBC machtne and can after the best rales a'uund 
We are always interested m obtaining now programs to 
add 1o qui range and oHer either a cash payment for the 
outright purchase or alternatively pay a royalty on each 
one sold 




16 Wayside, 



ipperfield. 



WD4 



Telephon 



(09277) 69727 



